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Preface 

Computers built to the MSX standard are set to revolutionise the 
home-computer market. First, they offer a much-improved BASIC 
with powerful graphics and sound statements, making them ideal 
for recreational and educational software. Second, they offer 
software houses the possibility of producing programs which will 
run on many different computers, which means a wide availability 
of first-class software for the MSX owner. 

With this book, Melbourne House continues its tradition of 
producing high quality literature and software in support of 
personal computers. 

Arrangement of Programs 

The games programs are graded within the book from easy to 
difficult. However, because different people have preferences for 
particular kinds of games, they are listed in the Contents page 
grouped by type. If you enjoy strategy games, you will find them 
all by consulting the random-access Contents. 

Ease of Use 

To speed program debugging, the ChexSum utility program 
enables you to identify incorrectly-typed lines immediately. (This 
aid is unique to Melbourne House games books.) 

But— and this is an important but — read the chapter ‘Program 
Accuracy’ first if you want to get the maximum benefit from all the 
aids to accurate transcription. 


Playing the Games 

To help you learn to play these games more quickly, game 
commands have been standardised. Unless otherwise stated in 
the game title page, the cursor and SPACE bar keys are used as 
follows: 


KEY 


USAGE 

Cursor up 

(T) 

Move sights or object up 

Cursor down 

U) 

Move sights or object down 

Cursor left 

(«-) 

Move sights or object left 

Cursor right 

(->) 

Move sights or object right 

SPACE 


Fire button 


Programming Projects 

I hope that as you read and use the book, you will absorb the 
principles of programming your MSX computer by osmosis. Lists 
of variables have been provided and subroutine names inserted 
in listings to help you discover how programs work. 

I have also suggested improvements you may make to the 
games as a challenge to your programming skills. 

Suggestions 

Melbourne House is always interested in feedback from readers, 
whether it be suggestions, praise or complaints — see ‘Write to 
Us’ at the end of the book. 


Happy computer gaming! 


Andrew Lacey 
September 1984 
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Program Accuracy 


Programs take a long time to type in and debug. To help make 
programs easier to read and debug, printouts have been 
specially formatted and the ChexSum utility has been provided to 
help you get programs running. Read the rest of this chapter and 
enter the ChexSum program before you enter any games 
programs. 

FORMATTED LISTINGS 

The program listings in this book have been processed through a 
formatting program to improve their appearance and readability. 
The formatter: 

• Aligns statements at the left, avoiding the margin stepping 
that occurs as line numbers increase, 

• Inserts spaces between keywords, and 

• Transforms SPACE characters occuring in strings, i.e. 
between quote marks (”), into a small black pyramid (* ). 

The formatting process makes programs much easier to read 
but may cause errors in typing unless the hints which follow are 
obeyed. 



TYPING RULES 


In the program listings spaces have only been used as an aid to 
readability. For example, the line 

1M POKE 54273, 1 ; PRINT " 4 STRINGa“ 

would be entered into your computer as 

108 P0KE54273,Is PRINT" STRING " 

Spaces are often used in strings but only enter a space when you 
see a (A) symbol. This character does not appear on the 
keyboard but is used to tell you when to press the SPACE bar. 


Character Confusion 

In the printouts certain similar characters may be confused and 
entered incorrectly, and cause your program to crash: they are 
the letter I and the figure 1, and the letter 0 and the figure 0. In the 
text, figure zero (0) is shown cancelled (0). In listings these 
confusing characters are soon recognised: 


CHARACTER PRINTOUT 

Letter I I 

Figure 1 l 

Letter O o 

Figure 0 0 

If you are modifying programs and entering code from your 
own notes, a number of handwritten characters are easily 
confused unless clearly distinguished. We offer you this guide: 


CONFUSED RECOMMENDED 

CHARACTERS FORM 


Letter Z, figure 2 Z, 2. 

Letter O, figure 0 0,0 

Letter S, figure 5 S, 5 
Letter I, figures 1 and 7 I, 1,7' 
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Punctuation may also be a trap: 

• Commas (,) and full stops or periods (.) are not 
interchangeable. 

• Colons (:) and semi-colons (;) are not interchangeable. 

• Apostrophes (’) and double quotes (") are not 
interchangeable. 

• Use parentheses () and brackets [ ] appropriately. Always 
ensure that parentheses and brackets are correctly paired: 
a quick check is to make sure that you have as many 
righthand as lefthand parentheses or brackets in a 
mathematical expression. 

• The SHIFT key must be pressed when some characters 
(such as ! ” # $ %, etc.) are entered. 


CSAVE Before RUNning 

Do you remember the old proverb? 

Programs typed and saved today, 

Live to RUN another day. 

Be sure to progressively save the programs onto cassette or disk 
as you enter the listings. From time to time the keyboard may lock 
up, especially if you try to RUN a program that contains an error. 
We strongly recommend that you keep saving copies of the 
program as you enter it into the computer and debug any typing 
errors. 

Note Some programs contain loaders to place machine 
language routines in high memory and which may alter certain 
system pointers. If such a program is run and crashes, the 
machine-language program and the pointers will remain as they 
were even when the NEW command has been entered. When 
debugging programs, save your work before running and always 
reset the computer after a crash to avoid crashing a program 
subsequently entered or loaded. 
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CHEXSOM PROGRAM VERIFICATION 


When games programs such as these are keyed in, invariably 
reading and typing mistakes creep in. You then spend ages 
trying to sort out where and what is causing the error. Even 
experienced programmers often cannot easily identify an error 
and need to do the tedious job of double-checking with the book, 
especially with DATA statements. 

To avoid this major cause of frustration when entering the 
programs, there are two short routines in this book which you 
should enter and save before you enter other programs: 

• Finder and 

• ChexSum. 

ChexSum calculates a unique check-sum number for each line of 
a games program, then prints out a table of program line- 
numbers and their corresponding line check-sums, plus a grand 
total for the whole program. 

When you have entered a game program, run ChexSum and 
compare the check-sum table with that in the book. Any 
discrepancies immediately identify a mistyped line. 

For ChexSum to operate correctly, the memory address where 
BASIC programs start must be inserted into ChexSum. The start 
of BASIC memory varies with MSX computers having different 
amounts of RAM. Finder is a program which locates the correct 
start-of-memory address for your computer. 

Saving Finder and ChexSum 

Follow these instructions to enter Finder and ChexSum and save 
them to tape. Do not put games programs on the same tape or 
you will spend considerable time winding and rewinding the tape 
to, first, load your program and, second, to load and use 
ChexSum. 
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1 Type in the Finder listing below and save it using the 
command CSAVE "FINDER”. 

Note Hand check Finder character by character after you 
have saved it. Finder is the only program in the book which 
cannot be verified by ChexSum. Why? Because you need 
Finder to initialise ChexSum to verify Finder and, if Finder is 
incorrect, this won’t happen. 

2 RUN Finder; while running, it will display a constantly 
increasing number labelled LOCATION. When it is finished, 
it will display the message 

Found it! — BASIC starts at location NNNNN 

where NNNNN is the address of the start of BASIC 
programs. Change SMEM in line 62000 of ChexSum to this 
value. 

3 Type in the ChexSum listing below and save it using the 
command SAVE "CAS: SELCHK"; SelfChek is the self¬ 
checking version of ChexSum. 

Note The SAVE command causes the ChexSum program 
to be stored on tape in ASCII alphanumeric characters. This 
is necessary because the MERGE statement used for 
adding ChexSum to the end of your games programs for 
checking will only work with ASCII program files. 

4 Load SelfChek with the statement LOAD "CAS: SELCHK”. 

5 Run SelfCheck by typing RUN. It will first of all process itself, 
generating a table of line sums and a grand total for the 
whole program. 

6 At this point you may or may not have had a crash. If a table 
was successfully generated, compare your table with that 
given below. If the grand totals differ, check the line sums to 
find and correct the incorrect line. 

Note SelfChek and ChexSum will sometimes generate 
different sums for the same line, even when the program is 
CORRECT. These differences are caused by the amount of 
memory in your system — see limitations of ChexSum in 
‘Debugging Hints’ below. 
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7 Repeat steps 4 to 7 until ChexSum is debugged. 

8 In line 62020, alter the value of E = 62500 to E = 61999. Save 
a copy to tape using the command SAVE "CAS: CHXSUM". 

Note The version called ChexSum is your working copy 
used to check all the other programs in the book. Make sure 
you don’t confuse it with your initial version, SelfChek, which 
is used only to verify ChexSum itself. 

Finder Program 


5 REM*testAl2345 

7 Bi = "*32*1 16*101*115*1I6*32a49*5O*51a52*53": CLS i 
PRINT : PRINT : PRINT "Location"! CHRt( 11 ) I TftBI 
11 ) "FINDER": PRINT : PRINT : PRINT 
10 PRINT CHR$( 11 ) ; MEM : PE = PEEK! MEM ) : IF PE 
<> 143 THEN MEM = MEN + 1 : GOTO 1C 
15 T = MEM : A* = FOR I = 1 TO 11 : MEM = MEM + 

1 : FE = PEEK( MEM ) : At = At ♦ STR*( PE ) l NEXT 

20 IF At <> Bt THEN MEM = T + 1 : GOTO 1C 

30 PRINT : PRINT : PRINT "Found*it!*-*BASIC*starts*at": 
PRINT "location*"; T - 4 

The value of SMEM = 32769 was obtained on a 16K byte machine 
and will vary for machines with larger amounts of memory — see 
also 'Debugging Hints’ below. 

ChexSum Program 


62000 SMEM = 32769! 

62001 CLS : PRINT TAB( 10 ) ; "CHEXSUM": PRINT : PRINT : 
PRINT 

62004 INPUT "Line*Nunber*to*5tart"; ST 

62005 CLS : PRINT TAB! 1C ) "CHEXSUM": FOR I = 1 TO 6 : 
PRINT : NEXT : PRINT TAB( 4 ) "Output*to*Printer" 

TAB( 24 ) "<P>": PRINT : PRINT : PRINT TAB! 4 ) 

"Output*to*Screen" TAB( 24 ) "<S>": FOR I = 1 TO 
5 : PRINT : NEXT : PRINT "******Press*'P'*or* ’S ’ ’ 
62010 Xt = INKEYt : IF X$ = "s" OR Xt = "S" THEN 62015 
ELSE IF Xt <> "P" AND Xt <> "p" THEN 62010 
62015 REM PRINTER ROUTINE 

62020 CLS : PRINT "Check*Sum*:: E = 62500! : LINK = SMEM 
62100 REM Main Loop 
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62120 T = LINK 

62130 LINK = PEEK! T + I ) * 256 + PEEK! T ) 

62135 LN = PEEK( T + 3 ) * 256 + PEEK! T + 2 ) ! IF LN 
< ST THEN T = LINK : GOTO 621311 

62136 IF LN > E THEN PRINT s PRINT "Total"") CH i PRINT « 
INPUT "RenoveaChexsiuiaf romaganeaaaaaprograiiu (<Y>*or*<N> 
)"; X* s IF X* = *Y“ OR X* = "y* THEN LINK = SHEW i 
GOTO 62200 ELSE END 

62137 PRINT LN ) TAB( 7 ) ; 

62140 CS=0:N=0: C=0 

62150 FOR P = T + 4 TO LINK - 2 : PK = PEEK! P ) 

62160 IF PK = M3 THEN P = LINK - 2 8 GOTO 62190 

62165 IF PK = 34 THEN C = ( C = 0 ) 

62170 IF C = 0 AND PK = 32 THEN 62J90 

62100 IF PK = 137 THEN N = N + 1 8 CS = CS + ( 203 OR 
N ) s PK = 164 

62185 N = N + 1 8 CS = CS + ( PK OR N ) 

62190 NEXT P s CH = CH + CS 8 PRINT *•") CS 8 GOTO 62120 

62200 T = LINK 

62210 LINK = PEEK! T ♦ 1 > * 256 ♦ PEEK! T ) 

62220 LN * PEEK! T ♦ 3 1 • 256 ♦ PEEK! T + 2 ) 

62230 IF LN <> 62000' THEN 62200 ELSE POKE T, 0 8 POKE 
T ♦ 1, 0 
62999 REM 

CHEXSUM TABLE 


62000 

= 

an 

62130 

= 

2583 

62185 = 2166 

62001 

= 

2048 

62135 

= 

5488 

62190 = 2626 

62004 

= 

2469 

62136 

= 

13424 

62200 = 638 

62005 

= 

15816 

62137 

= 

724 

62210 = 2583 

62010 

= 

5863 

62140 

= 

1217 

62220 = 2698 

62015 

= 

0 

62150 

= 

2731 

62230 = 2982 

62020 

= 

3365 

62160 

= 

550 


62100 

= 

0 

62165 

= 

1557 

Total=78888 

62120 

= 

638 

62170 

= 

1778 



Using ChexSum 

The greatest problem encountered when typing in programs from 
a book is errors made by the user. Most of these are picked up 
when the computer responds to the RUN command with the 
'Syntax Error’ message. The user then has only to LIST the line 
and compare it with the line in the book. Unfortunately, some 
errors are more subtle and not fatal to program operation. These 
types of errors will cause the program to run, but incorrectly, and 
the computer will not be able to detect them as such. 
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Checksum is a special program which generates a unique sum 
for each line in a program and a grand total of all line sums. After 
each program listing is a table of check sums. You need only 
compare the numbers in the ChexSum table for each program 
with those generated by ChexSum. If two numbers differ, check 
that particular line. 

1 Type in your game program, Patterns, say. Save it to tape 
with the statement CSAVE "PATTNS”. 

Note All games may be saved using CSAVE, which stores 
programs in compressed format, saving space on the tape 
and allowing programs to load faster. 

2 Reload your game program if necessary, using the 
statement CLOAD "PATTNS" for the first game in the book. 
Do not RUN the game program at this point. 

3 To join ChexSum to the end of your program, enter the 
statement MERGE "CAS: CHXSUM”. 

4 When merged, enter RUN 62000 to activate ChexSum. The 
program will prompt: 

Line Number to Start? 

Pressing the ENTER key at this point will cause ChexSum to 
begin with the first line of your program. Entering a line 
number will start ChexSum at that line. 

5 ChexSum next prompts: 

Output to Printer <P> 

Output to Screen <S> 

Press <P> or <S> 

Entering a P will cause output to go to the printer, S to go to 
the screen. 

6 ChexSum will now output the check-sum table for the 
program. To halt the scroll, hit the <STOP> key and to 
restart the scroll, hit the <STOP> key again. When finished,' 
ChexSum will prompt: 

Remove ChexSum From Game Program (<Y> or 
<N>)? 
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Entering a Y will delete ChexSum from the end of your game, 
so select N. 

7 Check your grand total with that in the book. If they differ, a 
line has been typed incorrectly. Compare line numbers until 
you locate the bad lines and then edit them. 

Note ChexSum will sometimes produce erroneous line 
sums in a CORRECTLY ENTERED program — see ‘Debug¬ 
ging Hints’ below. 

8 Repeat steps 4 to 7 until the games program is debugged. In 
step 4, enter the number of the first-bad line to avoid Chex¬ 
Sum verifying the games program from the first line. 

9 When the game program is running satisfactorily, in step 6 
enter Y to remove ChexSum from the end of your game 
program. 

10 Save your debugged game program to another tape, using 
this statement: 

CSAVE "PATTNS". 

DEBUGGING HINTS 
Limitations ofChexSum 

ChexSum is not entirely foolproof and cannot detect two errors 

which give a (seemingly) correct output: 

1 If your grand total is correct but the program crashes, two 
lines have been typed in incorrectly and, although their 
individual line sums are incorrect, they cancel. Please check 
that all line sums are correct. 

2 At certain column positions in a statement line, a full point (.) 
and a comma (,) may be interchanged and yet still give a 
correct line sum. When occurring in a DATA statement a (.) 
for (,) substitution will cause two adjacent integer numbers to 
be read as a single real number and will usually generate an 
‘Out of Data' message. When either possible substitution 
occurs in a program statement, a ‘Syntax Error’ message will 
be generated. 
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Lines containing GOSUB, GOTO and implied GOTO statements 
(i.e. after an IF. . . THEN. . . statement), may cause line sums 
different from those in this book even though the program is 
PERFECTLY CORRECT. 

This effect depends on the amount of memory available in the 
machine and causes the line sums to alter from machine to 
machine. All the programs in this book were created on a National 
CF2000 MSX computer with 16K bytes of memory. . 

Sometimes you may find that a line has been typed in completely 
correctly, the program runs perfectly and, yet, the ChexSum is 
different. 

This effect arises from the way MSX computers work and seems 
to depend on the amount of memory in a particular machine and 
on the operation of the line editor. At the time of publication it has 
not been possible to modify ChexSum to eliminate this effect 
reliably. 

So, if your games look right and run correctly, ignore 
discrepancies in the ChexSum tables. 

Note It is impossible for ChexSum to completely eliminate 
typing errors — it merely reduces the probability of them 
occurring to a very low level. 

Pointer Corruption 

Sometimes a program will run incorrectly even when thoroughly 
debugged by ChexSum and by hand. In this case there are two 
possibilities: 

• The program is wrong — please write and tell us (see 'Write 
to Us’ at the end of the book). 

• A previous run has left system pointers corrupted and they 
continue to crash the program despite the use of the NEW 
command. Always reset the computer after a crash to avoid 
this problem. 



Patterns 



classification: Interactive Graphics 

Create fantastic patterns with circles and rectangles! This 
program demonstrates the powerful graphic capabilities of the 
MSX. Just answer the questions and watch the shapes form! 

The circle patterns are formed by moving the circles 
horizontally, altering their shapes and sizes. 

Rectangles are generated from a line joining two points, PI and 
P2. 

Press a key when you are finished with a pattern. 



PROGRAMMING SUGGESTIONS 

Here are some combinations to get you started: 

CIRCLES 50, 3, -0.05, 0 

RECTANGLES 60, -2, -2, -2, -2 

Simple additions would be sections for drawing lines instead of 
rectangles or even plotting simple points. 

Even easier changes: change the numbers in line 200 or line 100. 


PROGRAM 


Variables 

NC 

Number of circles 

IN 

Increment in X-directions 

CA 

Change in aspect ratio 

CR 

Change in radius 

CX, CY 

Centre co-ordinates 

R 

Radius 

NR 

Number of rectangles 

IX, IY 

Increments for PI 

SX, SY 

Increments for P2 (multiples of IX, IY) 


Listing 


initialise 


5 CJ = 15 

10 SCREEN 1 : KEY OFF : PRINT "44444*44*44PATTERNS******4 
*": PRINT " 444 ** 444 * 44 """"“! PRINT : PRINT i 
PRINT 

11 PRINT : PRINT TAB( 4 ) "CIRCLES": PRINT : PRINT : 

PRINT TAB( 4 ) "RECTANGLES": PRINT : PRINT : PRINT 
TAB < 4 ) "SET 4 COLOUR" 

12 FOR I = 1 TO 6 : PRINT : NEXT : PRINT "Use*cursor*key 5 
to*move*arrow": PRINT : PRINT "**Press*'RETURN’*to*sele 
ct” 

13 K1 = 60 : GOSUB 19 

14 X* = INKEY* : IF X* = CHR*< 30 ) THEN IF K = 0 THEN 
14 ELSE K1 = 32 : GOSUB 19 : K 1 ■ 60 : K « K - 1 : 

GOSUB 19 : GOTO 14 

15 IF X* - CHR1 ( II ) THF.N IF K ■ 2 THEN 14 ELSE K1 

= 32 : GOSUB 19 1 Kl • 40 1 K - K ♦ 1 : GOSUB 19 : 

GOTO 14 

16 IF X* <> CHR*( 13 ) THEN 14 ELSE IF K = 0 THEN 20 

ELSE IF K = 1 THIN 40 ELSE CLS : INPUT "Foreground*11-1 
5)"; X* : Cl * VAI ( X* ) : IF Cl < 1 OR Cl > 15 
THEN RUN 

17 INPUT "Bac kgr ound * 11-15)"; X* : K2 = VALI X* ) : 

IF K2 < 1 OR K2 > 15 THEN 17 ELSE INPUT "Border*<1-15) "; 
X* 

18 K3 = VALI X* ) : IF K3 < 1 OR K3 > 15 THEN PRINT 
"Out*of*r ange": GOTO 17 ELSE COLOR Cl, K2, K3 : 

GOTO 10 

19 VPOKE 6356 + 96 » K, Kl : VPOKE 6357 + 96 * K, Kl : 

VPOKE 6358 + 96 » K, Kl : RETURN 

20 CLS : INPUT "NUMBER*OF*CIRCLES"; NC 

25 PRINT : INPUT "INCREMENT*IN*X-DIRECTION"; X* : IN 
= VAL ( X* ) 

30 PRINT : INPUT "CHANGE*IN*ASPECT 4 RAT10“; X* 1 IF 
VALI X* ) < - 1 OR VALI X* ) > 1 THEN 30 ELBE CA 
= VALI X* ) 

35 PRINT : INPUT "CHANGE*IN*RADI US"; CR 1 GOTO 100 

40 CLS : INPUT "NUMBER 4 OF 4 RECTANGLES"; NR 

45 PRINT : INPUT ”INCREMENT*IN*X-DIRECTION"| IX : PRINT : 

INPUT "INCREMENT*IN*Y-DIRECTION"; IY 
50. PRINT : INPUT " INCREASE*0R4DECREASE*P7*4**4*X-C0-0RDINA 
TES*11 4 OR 4 -I)"; SX 

55 PRINT : INPUT "INCREASE*0R*DECREASE4P2**44*4Y-C0-0RDINA 

TEB* 11*0R*-1)"t SY 
90 onui 200 
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Circles 


100 SCREEN 2 : CX = 90 : CY = 90 : IF CR < 0 THEN R 
= 100 ELSE IF CR > 0 THEN R = 5 ELSE R = 50 
105 AR = 1 
115 FOR I = 1 TO NC 

120 IF CX < 0 OR CX > 255 OR CY < 0 OR CY > 192 OR R 
< = 0 OR AR < = 0 THEN 400 ELSE CIRCLE! CX, CY ) 
, R, Cl, 0, 6.28 , AR 

125 CX = CX + IN : AR = AR + CA : R = R + CR 
130 NEXT 
190 GOTO 400 


Rectangles 


200 SCREEN 2 : XI = 100 : Y1 = 100 : X2 = 150 : Y2 = 90 

210 FOR I = I TO NR : XI = XI + IX : Y1 = YI + IY i 

X2 = X2 + SX » IX : Y2 = Y2 ♦ SY * IY 

220 LINE! XI, Yl ) - ( X2, Y2 > , Cl, B 

230 NEXT 
240 GOTO 400 


Wait 


400 IF INKEY* = "" THEN 
410 GOTO 10 


ChexSum Table 


25 

30 

35 

40 

45 

50 

55 

90 

100 

105 

115 

120 


5 = 387 

10 = 5293 

11 = 5648 

12 = 7919 

13 = 697 

14 = 6340 

15 = 5494 

16 = 9928 

17 = 7051 

18 = 6414 

19 = 4582 

20 = 2026 


= 

3798 

125 

= 

2925 

= 

7126 

130 

= 

131 

= 

2552 

190 

= 

537 

= 

2315 

200 

= 

25B2 

= 

6125 

210 

= 

6152 

= 

5004 

220 

= 

1645 

= 

5005 

230 

= 

131 

= 

593 

240 

= 

537 

= 

4971 

400 

= 

1091 

= 

408 

410 

= 

403 

= 

837 




= 

7932 

Total 

= 124579 
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Astral Attack 



CLASSIFICATION: Evasion Game 

You have pursued an enemy fleet of transport and fighter craft into 
a vortex where no weapons function. Crash into the smaller 
fighters but avoid the big transports! 

The battle is over when a fighter is allowed to escape. 

Use the cursor keys to move left or right. 

PROGRAMMING SUGGESTIONS 

Try a spectacular explosion effect when there is a collision — 
lines 800-830. You can also have a different fleet formation, as line 
200 controls the vertical spacing between enemy ships and line 
215 the horizontal range. 
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PROGRAM 


Variables 

NF 

Number of fighters hit 

DT 

Distance to move all ships 

SF 

Sprite flags for being on screen 

LS 

Last sprite on screen 

FS 

Front sprite (enemy ships) 

NS 

Number of ships destroyed 

GE 

Game ended 

LD 

Level of difficulty 
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Listing 


Initialise 


5 SCREEN 1, 2 : KEY OFF : COLOR 15, 1, 1 i PRINT m tkkkkk 
*ASTRflL*ATTACK" 

10 REM RUN MACHINE CODE 

11 REM SUPPORT PROGRAM 

12 REM SEE APPENDICES 

15 FOR I = 1 TO 32 : READ 0 : A* = A* + CHR*( Q ) i 

NEXT ! SPRITE*! 0 ) = A* : A* = •* 

20 FOR I = 1 TO 32 : READ 0 : A* = A* + CHR*< Q > i 

NEXT : SPRITE*! 1 » = A* s A* = "” 

25 FOR I = 1 TO 8 : READ Q : A* = A* + CHR*< Q ) i 
NEXT : SPRITE*! 2 ) = A* 

30 DEFUSR = 60000' t DEFUSR1 = 60118! i POKE 59996!, 10 

35 FOR I = 1 TO 5 i VPOKE 6914 ♦ 4 • I, 8 i NEXT 

40 FS = 1 : PRINT i PRINT i PRINT i INPUT "LeveUof*Diffic 

ulty*(1-4)"| LD* i DT - 7 » VAL! LD* ) + 2 : IF 
DT > 10 THEN 40 

50 FOR I = 1 TO 8 i PRINT ! NEXT s PRINT ’aaaaaHIT*ANY*KEY 
*TO*START h 

55 D = RND( 1 >.i IF INKEY* = ““ THEN 55 

60 SPRITE ON l ON SPRITE GOSUB 800 

65 FOR I = 1089 TO 1095 : VPOKE 1,0: NEXT : VPOKE 
1088, 1 

70 CLS : FOR I = 1 TO 60 : VPOKE 6144 + I NT( RND! 1 ) 

» 700 ) , 136 : NEXT 

95 TIME = 0 : PUT SPRITE 0, ( 120, 160 ) , 11 


Control 


100 POKE 59999' , 7 : D = USR! D ) 
110 GOSUB 200 

120 GOSUB 300 

190 GOTO 100 


New Ship 


200 IF TIME < 105 - 25 * LD THEN RETURN 

210 K = LS + 1 : IF K = 6 THEN K = 1 

212 IF SF AND 2 A K THEN RETURN ELSE LS • K i TIME = 

0 : IF RND! 1 ) < .6 THEN KI « 8 i K2 = 7 ELSE K1 
• 4 i K2 = 8 
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215 

VPOKE 6914 

+ 4 * LS, K1 t PUT SPRITE 

LS, t INTt 


RND( 1 ) • 

( 150 - 20 » LD ) + 40 + 

20 * LD ) , 


0 ) , K2 : 

SF = ( SF ) OR 2 A LS 


220 

RETURN 




Move Ships 


300 POKE 59999!, DT : POKE 59990!, 2 : FOTI = 1 TO 5 : 

IF SF AND 2 A I THEN POKE 59997!, I s D = USR1 ( D ) 

; IF VPEEK( 6912 * 4 * I ) > 190 AND( SF AND 2 * 

I ) THEN SF = SF AND( 255 - 2 A I ) s PUT SPRITE 

I, ( 10 + 30 * I, 200 ) : IF VPEEK( 6914 +4*1) 
= 8 THEN GE = 1 : GOTO 900 ELSE FS = FS + 1 : IF 
FS = 6 THEN FS = 1 
305 NEXT 
310 RETURN 


Collision 


B00 SPRITE OFF ! IF VPEEK( 6914 ♦ 4 * FS ) = 4 THEN 900 
810 PUT SPRITE FS, ( 10 + 30 * FS, 200 ) i SF = SF AND( 

255 - 2 A FS ) : NS = NS + 1 : PLAY “154*1700s!0n54n32" 
820 FS = FS + 1 : IF FS = 6 THEN FS = 1 
B30 SPRITE ON : RETURN 


Game Over 


900 SCREEN 1 : PRINT "*a*a*aaa**GAME»OVER" 

910 FOR I = 1 TO 10 ! PRINT : NEXT : PRINT *You*D»*troyed"j 
NS j "*EnemyiShips" 

920 PRINT : PRINT : IF GE = 1 THEN PRINT "***ENEMY*FI6HTER 
ESCAPED!!!" ELSE PRINT "DESTROYED*BY*TRANSPORT*SHIP!■ 
940 IF INKEY9 = THEN END ELSE 940 


Sprite Data 


10000 

DATA 

1, 1 

. 1, 

129, 

129, 

199, 

206, 

260, 254, 

206, 


255, 

207, 

199, 

198, 

, 199 

, 131 

, 128 

, 128, 128, 

130, 


130, 

227, 

115, 

115, 

. 127 

, 115 

, 255 

, 243, 227, 

99, 


227, 

194 








10010 

DATA 

56, 

56, 

255, 

255, 

255, 

127, 

63, 63, 31 

, 30, 


14, 6 

, 2, 

I, 1 

, 1, 

28, 

28, 255, 255, 255, 254, 252 


252, 

248, 

120, 

1/2, 

96, 

64, 

128, 

1 28, 128 


10020 

DATA 

129, 

195, 

231, 

255 

, 24, 

36, 

66, 129 
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ChexSum Table 


5 

= 

3132 

65 

10 

= 

0 

70 

11 

= 

0 

95 

12 

= 

0 

100 

15 

= 

3995 

110 

20 

= 

3996 

120 

25 

= 

3500 

190 

30 

= 

2746 

200 

35 

= 

1951 

210 

40 

= 

7427 

212 

50 

= 

3476 

215 

55 

= 

1093 

220 

60 

= 

926 

300 


Sprite Shapes 



= 

2013 

305 

= 

131 

= 

3625 

310 

= 

143 

= 

1549 

000 

= 

2626 

= 

1493 

810 

= 

6568 

= 

362 

820 

= 

2113 

= 

207 

830 

= 

551 

= 

489 

900 

= 

1706 

= 

1760 

910 

= 

4509 

= 

1865 

920 

= 

7117 

S 

6341 

940 

= 

1481 

s 

7573 

10000 

= 

10608 

= 

143 

10010 

= 

8870 

= 

22634 

10020 

= 

1733 



Total= 

13 

1260 



TRANSPORT 



FIGHTER SHIP 











Planetoid 



CLASSIFICATION: Target Practice Game COLOUR illust. obc 

Venture through a space corridor into a zone full of destructive 
planetoids. Your lasers must strike a hidden weak spot on an 
approaching planetoid in order to save yourself from being 
converted into astral dust! * 

Watch the spectacular graphics create a unique atmosphere in 
this strange space zone. 

PROGRAMMING SUGGESTIONS 

The planetoid’s approach is controlled by lines 450-490 and this 
is one area where making some modifications could be very 
rewarding! Make R increase in bigger steps or change the 
behaviour of AS to get a completely different appearance for the 
planetoid. 

This area could also be used to implement levels of difficulty. 
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PROGRAM 


Variables 


PL 

Planetoid on screen? 

R 

Planetoid’s radius 

WX, WY 

Weak point co-ordinates 

CX, CY 

Centre of planetoid 

AS 

Aspect ratio 

NP 

Number of planetoids destroyed 
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Listing 





Initialise 

1 

CLS : PRINT "**A*** 4 *Hit*a*key■ 


2 

IF INKEY* = "" THEN D = RND! 1 ) t 

GOTO 2 

5 

COLOR 15 

,1,1 i SCREEN 2, 2 


10 

REM RUN 

MACHINE CODE 


11 

REM SUPPORT PROGRAM 


12 

REM SEE 

APPENDICES 


15 

FOR I = 

1 TO 32 i 

READ Q ! A* = A* 

+ CHR* ( Q ) i 


NEXT : SPRITE*! 0 

> = A* 

* 

20 

DEFUSR = 

60000! : 

POKE 59996! , 15 « 

POKE 59999! , 8 

30 

A* = **: 

FOR I = 1 

TO 8 i READ Q : 

A* = A* + CHR*< Q) 


! NEXT i 

SPRITE*! 

1 ) = A* 





Set Up Screen 

.00 

LINE! 20 

, 140 ) - 

( 235, 20 ) , 15, 

B i LINE! 0, 


160 ) - 

( 255, 0 ) 

, 15, B : LINE! 

0, 192 > - ! 


255, 160 

) , 15, B : LINE! 10, 190 

) - ( 180, 170 ) 


, 15, B 




.10 

LINE! 13 

, 187 ) - 

( 177, 173 ) , 15 

, B : PAINT! 


50, 186 

) 




120 LINE( 0, 1<50 > - < 20, 140 ) i LINE! 255, 160 ) 

- t 235, 140 ) ; LINE( 0, 0 ) - ( 20, 20 ) : LINE! 

255, 0 ) - ( 235, 20 ) 

130 FOR I = 80 TO 180 STEP 10 s CIRCLE( I, 146 ) , 2 : 

PAINT( I, 146 ) s NEXT : FOR I = 75 TO 185 STEP 

10 ! CIRCLE! I, 154 ) , 2 t PAINT( I, 154 ) t NEXT 
140 DRAW "bmJ5,145r20gl0120el0bml95,147rl0T5110h5b»215,147r 
10f 5110h5”i PA I NT < 220, 150 ) 

150 DRAW "bm200,175g5rl0h5"s CIRCLE! 225, 177 > , 10 : 

LINE! 225, 167 ) - ( 225, 187 ) s LINE! 215, 177 1 

- ( 235, 177 ) 

160 LINE! 21, 141 ) - ( 234, 21 ) , 15, B i DRAW "bm40,139u 
4e3f3d4bni215,139u4e3T3d4"i PAINT! 42, 138 ) i PAINT! 
217, 138 ) 

165 IF NP = 0 THEN 170 ELSE DRAW "b«35,8": FOR I = 1 
TO NP : DRAW "g3F3e3h309■ s NEXT 
170 PRESET! 17, 178 ) : PRESET! 17, 179 ) l PRESET! 

17, 180 ) : PRESET! 18, 179 ) 

190 IF NP <> 0 THEN 270 
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Corridor 


200 

FOR J = I 

TO 

3 : 

XI = 120 b 

X2 = 141 

8 Yl = 80 8 


Y2 = 90 






210 

FOR I = 1 

TO 

10 

s B$ = "n"+ 

STR* t I + 

20 ) 8 PLAY 


"m299s/lJ9xbt[": LINE( XI, Yl > - < X2, Y2 ) , 15, 

B s XI = XI - I s X2 = X2 + I 8 Yl = Yl - I s Y2 

= Y2 + I : NEXT : LINE( 45, 130 ) - ( 211, 24 ) , 15, B 

220 XI = 120 : X2 = 141 s Yl = 80 8 Y2 = 90 s FOR I 

= 1 TO 10 s B1 = "n*+ STR*< 30 - I ) i PLAY "■299slll9x 
bfj": LINE( XI, Yl ) - ( X2, Y2 ) , 1, B : XI = 

XI - I i X2 » X2 ♦ l i YI * Yl * I i Y2 * Y2 ♦ I I 
NEXT 8 LINE! 45, 130 ) - ( 211, 24 ) , 1, B t NEXT 
270 PUT SPRITE 0, ( 120, 70 ) , 9 

2B0 NX = 0 : NY = 0 : STRIGt 0 ) ON : ON STRI6 60SUB 900 


Control 


300 A = PEEK( 59996' ) i X - VPEEK( 6913 ) i Y = VPEEK( 

6912 ) i IF X < 30 THEN POKE 59996!, PEEKt 59996! ) 

AND 13 ELSE POKE 59996!, PEEKt 59996! > OR 2 
305 IF X > 209 THEN POKE 59996!, PEEKt 59996! ) AND 
7 ELSE POKE 59996', PEEKt 59996! ) OR 8 
310 IF Y < 30 THEN POKE 59996!, PEEKt 59996! ) AND 14 
ELSE POKE 59996', PEEKt 59996! ) OR 1 
315 IF Y > 100 THEN POKE 59996!, PEEKt 59996! ) AND 
11 ELSE POKE 59996!, PEEKt 59996! ) OR 4 
320 D = USRt D ) 

330 IF PL = 0 AND RND( 1 ) < .1 THEN GOSUB 400 

340 IF PL = 1 THEN GOSUB 450 

390 GOTO 300 


400 CX = I NT( RND( 1 ) 

* 30 + 60 ) : R = 

CX, CY > 

410 PL = 1 s PUT SPRITE 1, ( 170, 176 ), 1 

420 NX = CX + INTt RND( 1 ) t 80 - 40 ) 8 NY • CY + 

INTt RND( 1 ) * 70 - 35 ) 

440 RETURN _ 


Increase Size ol Planetoid 


450 IF RND( 1 ) < .2 THEN R » R ♦ 2 


Introduce Planetoid 


* 90 ♦ 80 ) 8 CY = INTt RND( 1) 

3 s CIRCLEt CX, CY ) , R i PAINT( 
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460 AS = RND( 1 ) / 3 + .0 : CIRCLE< CX, CY ) , R, 15, 
0, 6.28, AS 

470 VPQKE 6917, 160 - 3 * R 

490 IF VPEEK( 6917 ) < 15 THEN 2000 

490 RETURN _ 


Blow Planetoid 


700 STRIGI 0 ) OFF i FOR I * 1 TO 50 i PLAY * 140n380s8n24": 
XI = INTI RNDI 1 > t 90 - 45 ♦ CX ) : Y1 = INTI 

RNDI 1 ) * 90 - 45 + CY > i X2 = INTI RND I 1 ) » 

200 + 25 ) : Y2 = INTI RNDI 1 ) * 110 + 25 ) 

710 LINE! XI, Y1 > — I X2, Y7 ) , 1 i CIRCLE! XI, Y1 ) 

, 1 i CIRCLE! X2, Y2 ) , 2 : PAINT! X2, Y2 ) ! NEXT 

720 PUT SPRITE 1, I 100, 200 ) : PL = 0 

730 NP = NP + I : CLS : GOTO 100 


Fire Lasers 


900 IX = VPEEKI 6913 ) + 8 t IY = VPEEKI 6912 > ♦ 8 : 

LINE! 44, 132 ) - I IX, IY ) , 11 : LINE! 217, 132 ) 

- I IX, 1Y ) , 11 
905 PLAY "110ml000si4n33" 

910 LINE! 44, 132) - I IX, IY) ,1s LINE! 217, 132 > 

- I IX, IY ) , 1 

920 IF! NX - CX ) A 2 + I NY - CY > A 2 > = R • F THEN 
RETURN 

930 IF ABSI IX - NX )< 15 AND ABSI IY - NY ) < 15 THEN 

700 

970 RETURN 


Game Over 


2000 FOR I = 1 TO 100 : PLAY "164m200sl4n23"s XI = INTI 

RNDI 1 ) * 255 ) s Y1 = INTI RNDI 1 ) * 192 1 ! 

X2 = INTI RNDI 1 ) » 255 ) s Y2 = INTI RNDI I ) 

» 192 ) : LINE! XI, Y1 ) — I X2, Y2 ) : NEXT 
2010 SCREEN 1 : PRINT "COLLISION*NITH*PLANETOID! ! ! ": 

PRINT ! PRINT : PRINT : PRINT "PLANETOIDSiDESTROYEDl"| 
NP 

2099 IF INKEY* = "" THEN END ELSE 2099 


Sprite Data 


10000 DATA 1, 2, 4, 8, 16, 32, 65, 131, 131, 65, 32, 16, 
8, 4, 2, 1, 128, 64, 32, 16, 8, 4, 130, 193, 193, 
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e 


J3fl, 4, 8, 16, 32, 64, 
10010 DATA 24, 68, 126, 126, 


ChexSum Table 


1 

= 1671 

200 

2 

= 2253 

210 

5 

= 723 

220 

10 

= 0 

270 

11 

= 0 

280 

12 

= 0 

300 

15 

= 3482 

305 

20 

= 2455 

310 

30 

= 4010 

315 

100 

= 8141 

320 

110 

= 2342 

330 

120 

= 5656 

340 

130 

= 6409 

390 

140 

= 5772 

400 

150 

= 6368 

410 

160 

= 6637 

420 

165 

= 4450 

440 

170 

= 2646 

450 

190 

= 1069 

460 


Sprite Shapes 



128 

68, 24, 0, 


B 

312B 

4/0 

- ■ 

1115 

S 

13684 

4(10 

■ 

1454 

S 

18153 

490 

■ 

143 

= 

8B3 

700 

■ 

15021 

= 

2719 

710 

■ 

4038 

= 

9391 

720 

01 

1397 

= 

5207 

730 

■ 

1623 

= 

5098 

900 

■ 

6442 

= 

515B 

905 

B 

1301 

= 

691 

910 

S 

3119 

= 

2309 

920 

3 

3651 

= 

1155 

930 

= 

3666 

= 

433 

970 

= 

143 

r 

6874 

2000 

= 

14040 

= 

1554 

2010 

= 

6422 

s 

5288 

2099 

= 

1362 

= 

143 

10000 

= 

7039 

= 

1928 

10010 

S 

1398 

= 

3663 

Total* 

224917 



PLANETOID ON 
RADER SCREEN 
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(I.F.O 



classification: Shoot-Out Game 

Chase the retreating fleet of U.F.O.s in your special astral fighter 
equipped with rockets. You will eventually leave Earth if you don’t 
crash into the landscape or a U.F.O. and, when you see the 
massive planet-ship, your time is running out. 

Use the cursor keys to move up or down and to alter speed; 
press the <SPACE> bar to fire. 

programming suggestions 

Make the time spent in each sceen whatever you like — SI and S2 
are set in line 60. 

If you’re feeling energetic, you could add a third screen of your 
own design so that screen 2 leads to your new screen. 
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PROGRAM 


Variables 


FF 

Fired rocket flag 

S1.S2 

Screen time limits 

NU 

Number of U.F.O.s hit 

HE 

How game ended (1 - 3) 
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Listing 


Initialise 


10 REM RUN MACHINE CODE 

11 REM SUPPORT PROGRAM 

12 REM SEE APPENDICES 

15 COLOR 15, 1, 1 : SCREEN 2, 2 

20 FOR I = 1 TO 32 : READ Q ! A* = A* + CHR*! Q ) « 

NEXT : SPRITE*! 0 ) = A* : A* = "" 

25 FOR I = 1 TO 32 : READ Q i A* = A* + CHR*( D ) i 

NEXT ! SPRITE*( 1 ) = A* s SPRITE*< 2 ) = CHR*< 255) 

+ CHR*( 255 > j FOR I = 14*32 TO 14464 i VPOKE I, 

2 A ( INT( RND( 1 ) * 8 ) ) 

27 NEXT 

30 DRAW "BM10,30DI34R1D4R2D3R3D2R4D1R55U1R4U2R3U3R2U4R1U13 
4L21DI10L1D4L1D3L1D2L1D1L25U1L1U2L1U3L1U4L1UI10L20 , « 
PAINTt 20, 40 ) 

35 DRAW "BM99,30D145R20U60R30U20L30U45R55U20L75"i PAINT! 

100 , 100 ) 

40 DRAW ”BM195,30R40D1R4D2R3D3R2D4R1D126LID4L2D3L3D2L4D1L4 
0U1L4U2L3U3L2U4L1U126RIU4R2U3R3U2R4U1* 

45 DRAW “BM208,51R14D1R2D2RID98L1D2L2D1L14U1L2U2L1U98R1U2R 
2U1”: PAINT! 200, 60 ) 

50 PUT SPRITE 1, ( 0, 5 ) , 8 t DEFUSR = 60000! : DEFUSR1 
= 60118! : POKE 59996!, 13 t POKE 59997!, 1 t POKE 
59998!, 3 s POKE 59999! , 1 

55 IF INKEY* = "" THEN D = USR1t D ) : GOTO 55 

60 SI = 60 » 60 : S2 = 60 * 30 s TIME = 0 


Screen 1 


100 CLS : COLOR 15, 1, 1 : DRAW "buB,170r5dl2r2u3r6d4r2ul0r 
3d2r2d3r4u6r2dl4r2u20r7dl5r3u2r2d2rlu6r4u3r7d9r2ul8r5dl 
0r3ulr2u3r2d2r3u4r2d3r3dl4r2ullr6u2r2d5r2u2r2u3r3d7" 

105 DRAW "r3d5r5u8r3dlr3d2r3d6r5u9r4d8r2u)2rldl2r2d5r4ulr3u 
19r5dl3r4d4r2u8r4d2r3dlr3d5r3u7r3d2r2d5rlu8r3u9r5d3rld4 
r4u2r4d4r3dlr2dlr3d2r2u6r3d2rld2r4d3r2u7r3" 

110 DRAW "d8r5u3rlu2r4ulr3dlr2d3r4u6r2d3rld5r4ul6r6d8r2d5r4 
U3r4u2r2d3r2d2r2u6r4d6m255,192* 

120 PUT SPRITE 1, ( 120, 70 ) , 8 j PUT SPRITE 0, ( 0,80) 

, 11 

130 STRIG( 0 ) ON : ON STRIG GOSUB 400 
140 SPRITE ON : ON SPRITE GOSUB 450 
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Control 1 


200 IF VPEEK( 6912 ) > 175 THEM POKE 59994! , 12 ELSE 
POKE 59996!, 13 

205 D = USR( D ) : IF VPEEK( 6912 > > 160 AND VPEEK( 

6912 ) < 175 THEN HE = 2 ! GOTO 800 

210 POKE 59998!, 3 : POKE 59999!, 4 i POKE 59997!, 0 : 

D = USR1( D ) 

220 GOSUB 300 

230 IF FF = 1 THEN GOSUB 350 

290 IF TIME > SI THEN 500 
290 GOTO 200 


300 POKE 59997!, 1 : POKE 59999!, 7 i IF FF * 0 THEN 
POKE 59998!, 3 : GOTO 310 

305 IF RND( 1 )< .6 THEN POKE 59998!, 3 ELSE IF RND( 1) 
< .52 THEN POKE 59998!, 0 ELSE POKE 59998!, 2 
310 D = USR1t D ) 

320 RETURN 


350 IF VPEEK! 6921 ) > 238 THEN FF » 0 i PUT SPRITE 
2, ( 101, 200 > i RETURN 
360 VPOKE 6921, VPEEK! 6921 1 + 16 
370 RETURN 


900 IF FF = 1 OR VPEEK! 6913 ) > 243 THEN RETURN 

905 FF = 1 : PUT SPRITE 2, < VPEEK! 6913 ) * 16, VPEEK! 

6912 ) ) 

910 RETURN 


450 SPRITE OFF i IF FF = 0 AND ABS! VPEEK! 6913 ) - 

VPEEK! 6917 ) > < 17 THEN HE = 1 I VPOKE 6914, 12 l 
FOR II = 1 TO 200 i NEXT i VPOKE 6918, 12 i FOR 
11 = 1 TO 800 : NEXT i GOTO 800 
455 IF ABS! VPEEK! 6916 ) - VPEEK! 6920 ) ) < 8 THEN 

NU = NU + 1 : VPOKE 6918, 12 : PUT SPRITE 2, ( 101, 
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200 ) : PLAY "14m2000sl4n15"i FOR II = 1 TO 500 i 
NEXT s VPOKE 6918, 4 : FF = 0 : PUT SPRITE I, < 

0, 70 + INTI RNDI / ) * 20 ) ) s SPRITE ON ! RETURN 


460 FF = 0 : PUT SPRITE 2, I 101, 220 ) s SPRITE ON t 
RETURN 





Screen 2 

500 

COLOR 15, 1, 

1 : CLS 




505 

CIRCLE! 220, 

5 ) , 

1 5 j 0f 6 , 

.5 



510 

FOR I = 1 TO 

9 : CIRCLE! 220, 5 

♦ 3 * 

I ) , 10 

♦ 


2*1, 15, 0 

, 6.28 

, .5 : NEXT j 

FOR I 

= 1 TO 9 

: 


CIRCLE! 220, 

33 ♦ 

3*1) , 28 

-2*1 

, 15, 0, 

6.28, 


.5 : NEXT 






590 

FOR I = 0 TO 

255 STEP 6 : FOR J 

= 0 TO 

190 STEP 



6 : IF RND! 

1 ) < 

.1 THEN PSET! 

I, J ) 

, 15 


595 

NEXT : NEXT 

TIME 

= 0 : SPRITE 

ON 






Control 2 

600 

D = USR! D ) 






610 

POKE 59998 ! , 

3 : POKE 59999!, 5 

: POKE 

59997! , 

0 : 


D = USR1 ( D 






620 

GOSUB 300 






630 

IF FF = 1 THEN GOSUB 350 




640 

IF TIME > 52 

THEN 

HE = 3 : GOTO 

800 



690 

GOTO 600 






$ 



Game Over 


800 SCREEN 1 : PRINT "aaaaaaUaAaMaEaaOaVaEaR") PRINT : 
PRINT 

805 PRINT "AAYouAhaveAdestroyedA”! NU ; "ofa’i PRINT 
"AAtheAinvadingAUFO’s’i PRINT ! PRINT 
810 IF HE = I THEN PRINT "Col 1isiona*ithaoneaof aUFO' s” 

B20 IF HE = 2 THEN PRINT "Crashedaintoatheabui1dings!" 

830 IF HE = 3 THEN PRINT "TIME-UP:a 1NVADINGaFLEETa“t 

PRINT "RETURNEDaTOaTHE IRaPLANET-SHIP" 

090 IF INKEY* = "" THEN END ELSE 890 
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Sprite Data 


10000 

DATA C, 0, 0, 224, 224, 

224, 240, 

248, 

255, 255, 


12 7, 31, 31 , 62 , 112 , 0, 

p <>! *>( B, 

0, 0 

, 0, 0, 56, 


254, 255, 252, 224, 128 , 

, 0, 0, 0 



10010 

DATA 0, 0, 0, 3 , 5, 15 , 

126, 255, 

240, 

127 , 63, 


7, 0, 0, 0, 0, 0, 0, 0, 

192, 64, 

240, 

102, 255, 


0, 254, 252, 224, 0, 0, 

0, 0 



ChexSum Table 





10 

= 

0 

200 

= 

3129 

500 

= 

572 

11 

= 

0 

205 

= 

4518 

505 

= 

1179 

12 

= 

0 

210 

S 

3160 

510 

= 

9701 

15 

= 

723 

220 

a 

207 

590 

= 

4655 

20 

= 

3995 

230 

a 

1027 

595 

= 

1275 

25 

= 

10470 

240 

a 

1219 

600 

= 

691 

27 

= 

131 

290 

a 

593 

610 

= 

3162 

30 

= 

10098 

300 

s 

3798 

620 

= 

207 

35 

= 

3590 

305 

= 

6024 

630 

= 

1027 

40 

= 

7700 - 

310 

= 

715 

640 

= 

1838 

45 

= 

5085 

320 

= 

143 

690 

= 

483 

50 

= 

6967 

350 

= 

3185 

800 

= 

2345 

55 

= 

2190 

360 

= 

1181 

805 

= 

5772 

60 

= 

2166 

370 

= 

143 

810 

= 

3815 

100 

= 

16663 

400 

= 

2227 

820 

= 

3897 

105 

= 

17B09 

405 

s 

2575 

'830 

= 

6434 

110 

= 

7830 

410 

s 

143 

890 

= 

1429 

120 

= 

1863 

450 

S 

9393 

10000 

= 

7545 

130 

= 

1653 

- 455 

S 

14962 

10010 

= 

6637 

140 

= 

1126 

460 

3 

2070 

Total = 

223135 


Sprite Shapes 




FIGHTER 


U.F.O. 
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Balloons 



classification: Target Practice Game 

Test your judgement by attempting to shoot arrows through a 
mass of balloons without popping any. A good shot scores 10 
points but you only have 15 shots. 

This game uses a machine-code subroutine to scroll the 
screen. 


PROGRAMMING SUGGESTIONS 

The number of shots allowed is arbitrary and is controlled by NS in 
line 125. 

To adapt this game to an arcade-style game, make K-3 
become K-5 in line 300, and change 15 to 8 in line 140. 
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PROGRAM 


Variables 

sc 

Score 

NS 

Number of shots 

S 

Shots remaining 

F 

Fired flag 

AC, AR 

Arrow's column; arrow’s row 
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Listing 


Initialise 


5 COLOR 15, 7, 7 : SCREEN 1, 7 s KEY OFF 

10 REM RUN MACHINE CODE 

11 REM SUPPORT PROGRAM 

12 REM SEE APPENDICES 

15 FOR I = 1072 TO 1079 s READ 0 : VPOKE I, Q j VPOKE 

I +.48, Q : VPOKE 80 + I, Q : NEXT s FOR I = 1088 

TO 1119 : READ Q i VPOKE I, Q s NEXT ! FOR I = 1128 

TO 11.J5 ! READ Q : VPOKE I, Q j NEXT s FOR I = 1280 

TO 1311 : READ Q s VPOKE I, Q s NEXT : FOR I « 1216 

TO 1231 : READ Q : VPOKE I, Q : NEXT 

17 VPOKE 8208, 135 s VPOKE 8209, 231 : VPDKE 8210, 

167 : VPOKE 8211, 23 : VPOKE 8212, 231 
20 FOR I s j TO 32 i READ Q : A$ = A* + CHR*( Q ) s 

NEXT ! SPRITE*! 0 ) = A* : A* = "" 

25 FOR I = 1 TO 32 : READ Q : A* = A* ♦ CHR*< Q ) i 

NEXT i SPRITE*! 1 ) = A* : A* = "" 

30 FOR I = 1 TO 32 i READ Q : A* = A* + CHR*( Q ) i 

NEXT : SPRITE*! 2 ) = A* 

35 DEFUSR0 = 60000' r POKE 59996!, 10 : POKE 59999!, 8 

40 DEFUSR2 = 60350! i FOR I = 60350! TO 60377! : READ 

Q : POKE I, Q : NEXT i POKE 60346!, 33 s POKE 60347!. 
24 ! POKE 60348!, 255 s POKE 60349!, 24 
55 FOR I = 6441 TO 6454 : VPOKE I, 134 : NEXT i FOR 

I = 6569 TO 6582 s VPOKE I, 134 i NEXT t VPOKE 6473, 
134 : VPOKE 6486, 134 : VPOKE 6537, 134 i VPOKE 
6550, 134 : FOR I = 1 TO II i PRINT i NEXT ! PRINT 
TAB! 7 ) CHR* ( 134 ) "^BALLOONS**" CHR*( 134 ) 

60 IF INKEY* = »" THEN D = RND( 1 ) s GOTO 60 


Set Up Screen 


100 

CLS 




105 

FOR I = 6816 TO 6820 : 

VPOKE 

1, 23 : NEXT s 

FOR 


I = 6842 TO 6847 : VPOKE I, 23 t NEXT ! FOR 

I = 

110 

6542 TO 6790 STEP 31 : 

VPOKE 

I, 162 i NEXT 

FOR I = 6544 TO 6808 STEP 33 

s VPOKE I, 163 

! NEXT i 


VPOKE 6821, 160 : VPOKE 

6841 , 

161 

115 

FOR I = 6496 TO 6527 : 

4 * 136 ) t NEXT 

VPOKE 

I, INT! RND! 1 

) » 

120 

VPOKE 6592, 141 : VPOKE 

6590, 

141 j VPOKE 6600, 


141 : VPOKE 6615, 141 : 

VPOKE 

6563, 141 s VPOKE 


6587, 141 




125 

NS = 15 : S = NS 
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1 '•> PUT SPRITE 0, ( 117, 140 ) : PUT SPRITE 2,1 118, 
139 ) 

I 35 BOSUB 1000 

MB INTERVAL ON : ON INTERVAL = 15 GOSUB 55f 

HB STRIGI 0 ) ON : ON STRIG GOSUB 800 

U.0 FOR I = 6240 TO 4303 : IF RND( 1 ) < .1 THEN VPOKE 

I, 134 
165 NEXT 


Control 


200 D = USR( D ) : IF F = 0 THEN VPOKE 6921, VPEEKI 6913 ) 

205 K = VPEEK( 6913 ) : IF K < = 69 THEN POKE 59996!, 

8 ELSE IF K > = 165 THEN POKE 59996!, 2 ELSE POKE 
59996!, 10 

210 IF RND( 1 ) < .03 + SC / 2000 THEN GOSUB 500 
220 IF F = 1 THEN GOSUB 300 

290 GOTO 200 


Move Arrow 


300 K = VPEEK( 6920 I : VPOKE 6920, K - 3 s IF K > 55 
THEN RETURN 


Check for Collision 


310 IF K < 7 THEN PLAY "sim200019n55n53"t VPOKE 6570 
♦ NS - S, 152 t SC = SC + 10 : S = S - 1 : GOSUB 
1000 ! F = 0 s VPOKE 6920, 139 s VPOKE 6914, 0 ! 

RETURN 

320 AR = I NT ( K / 8 ) i J = 6144 «• AR • 32 + AC i Kl 
= VPEEK ( J ) : IF KI <> 134 AND KI <> 140 AND Kl 
<> 144 THEN RETURN 

330 INTERVAL OFF : VPOKE J, 153 i F = 0 t PLAY " 110sl0i»90n2 
0": VPOKE 6920, 139 : VPOKE 69 21, VPEEKI 6913 > 

+ 1 : VPOKE 6914, 0 : S = S -It GOSUB 1000 i VPOKE 
J, 32 : INTERVAL ON : RETURN 


Add Balloons 


500 IF RND( 1 > < .5 THEN Kl = 134 ELSE IF RND( 1 ) 
< .5 THEN Kl = 144 ELSE Kl = 140 
505 VPOKE 6207 + INTI RNDI I ) » 6 ) • 37, Kl 
520 RETURN 
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550 


800 

802 

805 

810 

820 


900 

905 


910 

920 

930 

990 


1000 

1010 



D = USR2( D ) s RETURN 



IF F = 1 THEN RETURN 
IF S = 0 THEN 900 

F = 1 : VPOKE 6914, 4 i VPOKE 69 20, J30 
AC = I NT( VPEEK1 6921 ) / 8 ) ♦ 1 
RETURN 



ON INTERVAL = 7 GOSUB 550 : INTERVAL ON : POKE <0348!, 
223 : POKE <0349!, 26 

PUT SPRITE 0, ( 100, 200 ) : PUT SPRITE 2, ( 100, 

200 ) i CLS s FOR I = 1 TO 30 : VPOKE 61 77 + INTI 
RND( 1 > * 700 ) , 134 : PLAY "1<4s8m500n50"s NEXT 
PRINT "****YDur*Score*is:*; SC 
IF INKEY* = "■ THEN 930 ELSE 920 
IF INKEY* = "" THEN 930 
SCREEN 1 : END 



FOR I = 1 TO 23 t PRINT i NEXT s PRINT "SCORES"; 
SC ; TAB( 13 ) ; "NO.*ARROMSs"; S j CHR*< 11 ) | 
RETURN 



10000 

DATA 

120, 252 

, 2 52, 252, 

120, 48, 26, 5 

10002 

DATA 

0, 0, 0, 

49, 123, 255, 255, 255 

10004 

DATA 

0, 0, 131, 207, 255 

, 255, 255, 255 

10006 

DATA 

48, 121, 

251, 255, 

255, 255, 255, 

10008 

DATA 

0, 0, 0, 

0, 129, 201, 255, 255 

10010 

DATA 

81, 213, 

85, 54, 28 

,8,8,8 

10012 

DATA 

J, 2, 4, 

248, 0, 0, 

0, 0 

10014 

DATA 

128, 64, 

32, 31, 0, 

0, 0, 0 

10016 

DATA 

1, 2, 

8, 16, 32, 

64, 128 

10018 

DATA 

128, 64, 

32, 16, 8, 

4, 2, 1 

10020 

DATA 

16, 16, 

16, 16, 16, 

16, 56, 16 

10022 

DATA 

146, 4, 

32, 9, 128, 

16, 69, 8 
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Sprite Data 


DATA 1, 6, 24, 48, 96, 64, 192, 128, 128, 64, 32, 
16, 8, 4, 2, 1, 128, 96, 24, 12, 6, 2, 3, 1, 1, 

2, 4, 8, 16, 32, 64, 128 

IHIIfl DATA 1, 6, 24, 48, 96, 192, 192, 255, 0, 0, 0, 0, 
0, 0, 0, 0, 128, 96, 24, 12, 6, 3, 3, 255, 0, 0, 

0 , 0 , 0 , 0 , 0 , 0 

10120 DATA 1, 3, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 5, 3, 
5, 0, 128, 64, 0, 0, 0, 0, 0 , 0 , 0 , 0 , 0 , 128, 64, 
128, 64 


Machine-Code Data 


10200 DATA 42, 186, 23 5, 43, 35, 205, 27, 235, 43, 205, 

44, 235, 35, 237, 91, 188, 235, 123, 189, 194, 194, 
23 5, 122, 188, 194, 194, 2 35, 201 


ChexSum Table 


5 

= 

1244 

160 

= 

2969 

920 

= 

1526 

10 

= 

0 

165 

= 

131 

930 

= 

1111 

11 

= 

0 

200 

= 

2410 

990 

= 

407 

12 

s 

0 

205 

= 

6237 

1000 

= 

4819 

15 

= 

15285 

210 

= 

2681 

1010 

= 

143 

17 

= 

2786 

220 

= 

904 

10000 

= 

1645 

20 

= 

3995 

290 

= 

593 

• 10002 

= 

1448 

25 

= 

3996 

300 

= 

2661 

10004 

= 

1635 

30 

= 

34B4 

310 

= 

8917 

10006 

= 

1850 

35 

= 

2481 

320 

= 

7716 

10008 

= 

1377 

40 

= 

7478 

330 

= 

10354 

10010 

r 

1314 

55 

= 

13895 

500 

= 

5129 

10012 

= 

1028 

60 

= 

2297 

505 

* 

2334 

10014 

= 

1225 

100 

= 

159 

520 

= 

143 

10016 

= 

1205 

105 

= 

6581 

550 

= 

917 

10018 

= 

1229 

110 

= 

3858 

800 

= 

835 

10020 

= 

1408 

115 

= 

3409 

802 

= 

865 

10022 

= 

135B 

120 

= 

4706 

805 

= 

1306 

10100 

= 

6404 

125 

= 

989 

810 

= 

1971 

10110 

= 

5544 

130 

= 

1935 

820 

= 

143 

10120 

= 

4771 

135 

= 

397 

900 

= 

4665 

10200 

= 

8518 

140 

= 

2885 

905 

= 

7875 




150 

= 

1496 

910 

= 

2027 

Total= 

207104 
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Sprite Shapes 



BOW: RELEASED 




BOW: EXTENDED 



BALLOON 

(CHARACTER) 


♦ 
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Dragster 



CLASSIFICATION: Race Game 

In this game, you drive as far as you can before you crash into the 
sides of the track or slide on an oil slick. 

PROGRAMMING SUGGESTIONS 

The speed is controlled by the value 9 in line 97. To make it easier, 
you could also widen the track; see the ‘New Line' routine. 
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PROGRAM 

Variables 

DT Distance 

LN$(I) Line for printing on screen 

L(l), R(l) Left and right co-ordinates of road 
SF Sprite (oil patch) flag 

C Column of left part of road 
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Listing 


Initialise 


10 REM RUN MACHINE CODE 

11 REM SUPPORT PROGRAM 

12 REM SEE APPENDICES 

15 SCREEN 1, 2 : KEY OFF i COLOR 15, 4, 4 

20 FOR I = 1 TO 32 : READ Q : A* = A* + CHR* < Q > : 

NEXT : SPRITE*! 0 ) = A* : PUT SPRITE 0, ( 123, 0 ) , 1 

22 A* = FOR I = 1 TO 8 s READ Q i A* = A* + CHR*< D) 

: NEXT : SPRITE*! / ) = A* 

25 DEFUSR = 60000! : DEFUSR 1 = 60118! POKE 59996!, 

10 s POKE 59999!, 3 : POKE 59997!, 0 i POKE 59998!, fl 


27 

FOR I = 60300! TO 

60331 ! 

: READ Q i 

: POKE I, Q : 


NEXT : DEFUSR2 = - 

60300! 

s POKE 60296! , 223 : POKE 


60297!, 26 : POKE 

60298! 

, 0 i POKE 

60299!, 24 

30 

PRINT 


***** 

**"i PRINT 



PRINT "tuutt 


***** 

* * * *•"l PRINT "*KEYaTOaa»»*aDa* 


**": PRINT “***** 


AAA** 

*****»*'• 


35 

PRINT "aBEGIN**** 


»aRa* 

»*"t PRINT 



PRINT "******* 


A * * » A 



*»*"! PRINT "**** 


A A A A * 

**aG****": 



*****»'' 





40 

PRINT 'mmUM 


• aSa* 

**”: PRINT 



PRINT 'ttttiu 


A * * * A 



PRINT "****** 


***** 



**”: PRINT "aaaaaaaa?»***aRa***" 
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FOR I = 1 TO 5 ! 

PRINT " 




PRINT "a********* 

#« 

***** 

**"; 


45 

IF INKEY* <> "" THEN 60 



50 

D = RND! 1 ) : D 

= 

USR1 ( 

D ) : 60T0 45 




Set Up Screen 

60 

PRINT i PUT SPRITE 

0, ( 

123, 176 ) 

, 1 : FOR I = 


1 TO 23 i PRINT " 

AA 

AAA A A 


**"! NEXT 

65 

PRINT CHR* ( 11 ) 

: 

FOR I 

= 1 TO 6 

: PRINT ■ NEXT : 


PRINT "****+-+": 

FOR I = 

> 1 TO 7 i 

PRINT "AAAAA 1 A I": 


NEXT : PRINT "ah 

A A 

+ -+" s 

FOR I = 1 

TO 7 l PRINT 


"aaaaaa 1*i NEXT 





70 

VPOKE 6439, 133 i 

VPOKE 

8208, 148 


75 

FOR I = 1 TO 800 

1 

NEXT 

! VPOKE 6503, 133 i VPOKE 


8208, 164 : VPOKE 

6439, 

32 l FOR I 

« 1 TO 800 ! 


NEXT : VPOKE 6503 

« 

37 i 

VPOKE 6567 

, 133 : VPOKE 


8208, 36 
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80 

85 

90 


95 

97 

98 


100 


200 

210 

215 

220 

225 

250 


300 

305 

310 

320 

330 

340 

350 


IF INKEY* = "" THEN 80 ELSE POKE 59999!, 2 8 PLAY 
"12s8m40$00n2 n 

D = USRI( D ) : IF VPEEKI 6912 ) > 25 THEN 85 
PRINT CHR*( II ) ; ! FOR I = 1 TO 4 l LN* ( I ) 

= "uuiitut» , iiui»iuauiaur: PRINT LN* 

( I ) ; : PRINT "auuaiiaaatiiaau a"! : 

L ( I ) = 110 s R ( I ) = 136 : NEXT 

FOKE 59999!, 7 : C = 11 ! ON SPRITE GOSUB 900 8 

SPRITE ON 

ON INTERVAL = 9 GOSUB 300 : INTERVAL ON 

FOR I = 152 TO 175 STEP 2 : VPOKE I, 170 : VPOKE 

I + 1, 85 8 NEXT : VPOKE 8194, 228 


Do Nothing 


GOTO 100 


Create New Line 


FOR I = 4 TO 2 STEP - 1 s LN* I I > = LN* I I - 
1> sR(I>=R(I — 1) sL(I)=L(I — 

1 ) 8 NEXT 

1 = INTI RND( 1 ) » I - 1 ) i C ! C H i IF C < 

2 THEN C = 2 ELSE IF C > 12 THEN C = 12 

LN* ( 1 ) = "iitiiamtiaatuuuatau’i MIDtl 
LN* ( 1 ) , C ) = "»*****i***t*t"s L < 1 ) = 8 * 

C * 28 8 R I 1 ) = L ( 1 ) + 48 

IF RND( 1 ) < .05 + DT / 1000 AND SF = 0 THEN PUT 

SPRITE 1, ( L I 1 ) + INTI RND( 1 ) * 35 ♦ 5 ) , 

0 ) , 1 8 SF = I 

IF VPEEKI 6916 ) > 190 THEN PUT SPRITE 1, I 200, 

200 ) s SF = 0 
RETURN 


Control 


D = USR2I D ) 

GOSUB 200 s PRINT CHR*< 11 ) LN* I 1 ) 8 PLAY "110IH5900 
0sl0n4" 

IF SF = 1 THEN VPOKE 6916, VPEEKI 6916 ) + 8 
DT = DT + 1 
GOSUB 800 
D = USRI D ) 

RETURN 
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Check Collision 


BH0 IF VPEEK ( 6913 ) < L ( 4 ) OR VPEEK( 6913 ) > R 
( 4 ) THEN 900 
810 RETURN 



700 INTERVAL OFF : PLAY * 1 1 m60000s8n20": FOR I = 6144 
TO 6303 s VFOKE I, 32 s NEXT : PRINT CHR*< 11 ) j 
"******C*R A A*S*H*E*D*!*! 4 !PRINT : PRINT *Distance:*"j 
DT j "km" 

910 IF INKEYf = ■■ THEN END ELSE 9/0 



10000 

DATA 

57, 

63, 59 

, 3, 

3, 

3 , 3 , 

3, 3, 

3, 

247, 

247, 


255, 

243, 

240, 

240, 

156 

, 252, 

, no. 

192 

, 192 

, 192, 


192, 

192, 

192, 

192, 

239 

, 239, 

, 255, 

207 

, 15, 

15 

10010 

DATA 

112, 

236, 

cc 

CD 

248, 

204, 

0, 0, 

0 





10100 DATA 42, 136, 235, 35, 43, 205, 27, 235, 17, 32, 

0, 25, 205, 44, 235, 237, 82, 237, 91, 138, 23 5, 

123, 189, 194, 144, 235, 122, 188, 194, 144, 235, 20/ 






ChexSum Tables 


10 

= 0 

65 

= 7866 

300 

= 

716 

11 

= 0 

70 

= 1031 

305 

= 

2859 

12 

= 0 

75 

= 6078 

310 

= 

1958 

15 

= 1220 

80 

= 3306 

320 

= 

817 

20 

= 4519 

85 

= 2173 

330 

= 

158 

22 

= 4010 

90 

= 11087 

340 

= 

691 

25 

= 5685 

95 

= 2355 

350 

= 

143 

27 

= 7288 

97 

= 2767 

800 

= 

2927 

30 

= 9478 

98 

= 3578 

810 

= 

143 

35 

= 13017 

100 

= 489 

900 

= 

10755 

40 

= 17019 

200 

= 5321 

910 

= 

1449 

42 

= 3504 

215 

= 7843 

10000 

= 

9121 

45 

= 1243 

220 

= 6682 

10010 

= 

1462 

50 

= 2186 

225 

= 3066 

10100 

= 

9933 

60 

= 3483 

250 

= 143 








Total 

= 

186129 


Sprite Shapes 



DRAG RACER 
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Cosmic Critters 



CLASSIFICATION: Evasion Game 

Harry the Hungry, Hairy Mountain Man has arrived at the domain 
of the Cosmic Critters in search of food. Guide Harry through the 
tunnels to the top where the Queen Critter guards the food. Harry 
must then return with a food parcel to his camp at the bottom. 

Make as many trips as you can before Harry is caught by a 
critter. 

PROGRAMMING SUGGESTIONS 

Line 210 determines how often the closest critter moves towards 
Harry so, by changing this line, you can make the game as hard or 
easy as you like. 

If you’re not happy with the speed of the critters then vary the 
appropriate numbers in line 250. 
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PROGRAM 


Variables 


cc 

Closest critter 

DR(I) 

Directions of critters 

NT 

Number of complete trips 

LD 

Harry loaded with food? 




Listing 



5 CLEAR 700 : COLOR 1, 14, 14 i SCREEN 2, 2 

10 REM RUN MACHINE CODE 

11 REM SUPPORT PROBRAM 

12 REM SEE APPENDICES 

15 FOR I = 1 TO 32 : READ Q : At = At + CHRt( Q I i 

NEXT : SPRITEt( 0 ) = At : At = ■■ 

20 FOR I = 1 TO 32 : READ Q : At = At ♦ CHRt! D ) s 

NEXT ! FOR I = 1 TO 5 j SPRITEt! I ) = At : NEXT l 

At = "" 

25 FOR I = 1 TO 32 : READ Q : At = At + CHRt! Q ) s 
NEXT : SPRITEt! 6 ) = At 

30 DEFUSR = 60000! : DEFUSR1 = <0118! i POKE 59996!, 15 
35 PUT SPRITE 0, ( 120, 173 ) , 1 i PUT'SPRITE 1, ( 

255, 46 ) , 12 i PUT SPRITE 2, < 255, 72 ) , 12 « 

PUT SPRITE 3, ( 255, 98 ) , 12 i PUT SPRITE 4, < 

255, 124 ) , 12 i PUT SPRITE 5, ( 255, 150 ) , 12 8 
PUT SPRITE 6, < 255, 10 ) , 1 
40 FOR I = 1 TO 6 i IF RND! 1 ) < .5 THEN DR ( I ) 

= 1 ELSE DR ( I ) • 3 
45 NEXT : CC = 5 

50 Bt = "eH2el"i At • FOR I = 1 TO 32 i At = At 
+ Bt : NEXT 

52 DRAH "bm0,41xatjxatib»0,44xat;xat;" 

54 DRAW "bm0,67xat(xat jb«lf,70xatjxat; " 

56 DRAW n biri0,93xat;xat;" 

SB DRAW "bm0,9<xat;xatj" 

60 DRAW "bm0,I19xatjxatj" 

62 DRAW "bm0,122xat;xat;" 

64 DRAW "bm0,145xat|xat;“ 

66 DRAW "bm0,148xat;xat;" 

68 DRAW "bm0,171xat;xat)" 

70 60SUB 78 

75 DRAW "b»115,192rl0u2110" 

77 GOTO 90 

78 DRAW "b«115,14rl0dl0110ul0f10bll0el0bl8u4r6d4’i 

RETURN 

7V DRAW "bnll5,!78rl0dl0110ul0(10bll0el0bl8u4r6d4'i 
RETURN 

90 SPRITE ON : ON SPRITE GOSUB 800 
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Control 


100 POKE 59999!, 10 : D = USR( D ) s GOSUB 300 
110 GOSUB 200 
190 GOTO 100 


Set Directions of Critters 


200 GOSUB 250 

205 I = INTI RNDI 1 ) » 6 + 1 ) i IF DR ( I ) * 1 THEN 
DR ( I ) = 3 ELSE DR ( I ) = 1 
210 IF RNDI 1 ) < .9 - NT / 10 THEN 220 ELSE IF VPEEKI 
6913 + 4 » CC ) < VPEEKI 6913 ) THEN DR I CC ) = 

3 ELSE DR I CC ) = 1 
220 RETURN 


Move Critters 


250 

POKE 59999!, 

9 : FOR I 

= 1 TO 6 : POKE 59998!, DR 


III! POKE 

59997!, I 

! D = USR1I D ) : NEXT 

260 

RETURN 




Check Move 


300 K = VPEEKI 6912 ) : CC = INTI I K - 20 ) / 26 ) 

305 IF K < 72 THEN CC = 6 

320 IF K > 180 THEN KI = 11 ELSE IF K < 10 THEN K1 = 

14 ELSE K1 = 15 
325 POKE 59996! , K1 

330 IF K > 25 AND K < 165 THEN RETURN 
335 IF VPEEKI 6913 ) < 115 OR VPEEKI 6913 ) > 125 THEN 
RETURN 

340 IF K < = 25 THEN IF LD = 1 THEN RETURN ELSE PLAY 

"124ml60s8n60n60"i LD = 1 s DRAM "cI4"j GOSUB 78 r 
GOSUB 79 ! RETURN 

345 IF LD = 1 THEN PLAY ”s8*200140n20"s NT = NT + 1 a 
GOSUB 1000 : LD = 0 s DRAM *cl*i GOSUB 79 i GOSUB 
78 : RETURN 
350 RETURN 


Game Over 


800 FOR I = 1 TO 7 s PLAY "150ml300sl0n64r10n74"s NEXT 
810 SCREEN 1 : PRINT "COSMIC*CRITTERS*STRIKE*AGAIN!" 

820 PRINT s PRINT : PRINT : IF NT > 1 THEN PRINT "BUT*-*Har 
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ry*the*Mountain*l1an": PRINT "managed*"; NT ; "tripsafor 
ifood" ELSE IF NT = 1 THEN PRINT "AND*-*Poor*Harry*only 
*i»ade*": PRINT "aone*trip" ELSE PRINT *AND*-*Harry*has 
no*food!!" 

850 IF INKEY$ = "" THEN END ELSE 850 



1000 A* = »bm"+ STR$ t NT « 4 ) + *,l*s DRAW "xa*;cld4"s 
RETURN 



10000 

DATA 

18, 

10, 5 

, 82, 

*7, 

21, 

37, 

87, 

14, 

23, 

39, 


75, 

18, 

2. 2. 

14, 1 

44, 

161, 

74, 

148 

, 104 

, 178, 


234, 

113 

, 232, 

728, 

208 

, 64, 

64, 

64 

, 112 



10010. 

DATA 

3, 

0, 240 

, s, 

4, 7 

, 15, 

31, 

31 

, 15, 

15, 

, 4, 


8, 240, 

0, 3, 

136, 

136, 

136, 

144 

, 166, 255, 

255 


246, 

246 

, 255, 

2 55, 

166 

, 144 

, 736,' 

136, 

13 6 


10020 

DATA 

68, 

34, 1 

7, 17 

, 17 

, 63, 

12 7 

, 255, 255, 

127 


63, 

17, 

17, 17 

, 34, 

CD 

-O 

64, 

32, 

16, 

17, 

17, 

250 


25 2, 

252 

, 252, 

252, 

250 

, 17, 

17, 

16 

, 32, 

64 



ChexSum Table 


5 

. = 1169 

64 

10 

= 0 

66 

11 

= J) 

60 

12 

= 0 

70 

15 

= 3995 

75 

20 

= 5120 

77 

25 

= 3484 

78 

30 

= 2747 

79 

35 

= 10823 

90 

40 

= 3710 

100 

45 

= 5BB 

110 

50 

= 3490 

190 

52 

= 2587 

200 

54 

= 2595 

205 

56 

= 1385 

210 

SB 

= 1388 

220 

60 

= 1435 

250 

62 

= 1438 

260 


1442 

300 

= 

2650 

1438 

305 

= 

1187 

1441 

320 

a 

3424 

238 

325 

= 

786 

1522 

330 

a 

1621 

4B3 

335 

= 

2727 

3573 

340 

= 

5989 

3641 

345 

= 

5783 

926 

350 

= 

143 

1837 

000 

= 

2820 

362 

810 

= 

2873 

489 

820 

= 

20412 

410 

850 

= 

1397 

4615 

1000 

= 

3629 

7425 

10000 

= 

8605 

143 

10010 

= 

8600 

4786 

10020 

= 

8785 

143 

Total= 

162307 
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Sprite Shapes 



CRITTER 



QUEEN CRITTER 
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Mind Quiz 



classification: Memory Game COLOUR illustration obc 

The secret code is a sequence of four shapes chosen from six. 
Crack the code in less than 8 attempts and you have won the 
game! 

A circle means that you have the right shape in the wrong 
position and a coloured circle signifies the right shape and 
position. 

Instructions are included in the program. 


PROGRAMMING SUGGESTIONS 

II you find this game a bit difficult, you could allow extra guesses 
by replacing the ‘Game Lost' routine with one that gives the player 
; i choice of further guesses (to be printed as though the game had 
lust begun) or to give up. 

On the other hand, an extra symbol to choose from would 
increase the difficulty. 
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PROGRAM 

Variables 

AN(I) Character codes of answer 

GS(I) Character codes of player’s guess 

LV Level (0-6) 

C Column (0-3) 

M$ Message 

CS Number of correct shapes 

SP Number of correct shapes with correct position 
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Listing 


Initialise 


5 SCREEN 1 : KEY OFF i COLOR 1, 15, 15 s PRINT "aaaaaaaa 
MINDaQUIZ" 

10 VPOKE 8209 , 79 : VPOKE 8210, 207 : VPOKE 8212, 111 s 
VPOKE 8214, 159 : FOR I = 136 TO 184 STEP 8 : FOR 

J = 0 TO 7 : READ Q : VPOKE 8 » I + J, Q : NEXT : NEXT 

15 FOR I = 1 TO 5 : PRINT : NEXT : PRINT "AAUseAtheAkeySA’ 

l < AtoA'6 , Atc>AAputAtheA£ApossibleASha£pe5AAAAonAtheA5cre 

en.ATheA'del'AAAAAkeyACanAbeAUsedAttUChangeAAAAtheAl a st 
Ashape.” 

20 PRINT : PRINT "aaa" CHR*t 136 ) "aaa" CHR*< 144 ) 

"ua" CHR* ( 152 ) "aaa" CHR*< 160 I "aaa" CHR* I 168) 

"aaa” CHR* I 176 ) 

30 PRINT : PRINT ! PRINT "aaaaaHi tAaAkeyAto 4 start" 

35 IF INKEY* = "" THEN D = RND( 1 ) : GOTO 35 


Set Up Screen 


100 CLS : FOR 1 = I TO 6 : PRINT : NEXT : PRINT TAB! 16) 

"I Right!" TAB! 24 > "1a = a" CHR*( 136 ) ; 

105 PRINT TAB! 16 ) "IShapel": PRINT TAB( 16 ) "IaaaaaI" 

: PRINT TAB! 16 ) "Iaa" CHR* I 132 ) "aa!" TAB( 24) 

"2 a=a“ CHR*< 144 ) ; : PRINT TAB! 16 ) “IaaaaaI": 

PRINT TAB! 16 ) “IaaaaaaI" : PRINT TAB t 16 ) “IRightl" 
TAB! 24 ) "3a = a" CHR* ( 152 ) ; 

110 PRINT TAB( 16 ) "IShapel": PRINT TAB( 16 ) "landAAl": 
PRINT TAB( 16 ) "IRightl” TAB! 24 ) "4a=a" CHR* ( 

160 ) j : PRINT TAB( 16 ) "IPos'nI": PRINT TABI 16) 
"IaaaaaI" : PRINT TAB< 16 ) "Iaa” CHR*( 133 ) "aa!" 
TABI 24 ) "5a=a" CHRII 168 ) ; 


115 

PRINT 

TABI 16 ) 

"IaaaaaI": PRINT 

TABI 16 

) "I 

A A A A A I 


: PRINT TABI 16 

) "IaaaaaI" 

TABI 

24 ) " 

6a*a" 

CHR* I 


176 ) 

CHR*I 11 ) 

1 





140 

VPOKE 

6273, 77 : 

VPOKE 6337, 

73 : 

VPOKE 

6401, 

CO 


VPOKE 

646 5, 68 : 

VPOKE 6561, 

81 : 

VPOKE 

6675, 

85 : 


VPOKE 

6689, 73 : 

VPOKE 6753, 

90 




145 

FOR I 

= 6179 TO 

6755 STEP 96 

: FOR J ■ I 

♦ 97 

TO 


I + 103 : VPOKE J, 23 : NEXT : VPOKE I, 70 i VPOKE 
1*8, 19: VPOKE I + 32, 22 : VPOKE I ♦ 6*, 22 : 
VPOKE 1 + 40, 22 : VPOKE I + 72, 22 : NEXT 
150 VPOKE 6179, 24 : VPOKE 6187, 25.: VPOKE 6851, 26 : 
VPOKE 6859, 27 : FOR I = 6180 TO 6186 i VPOKE I, 

73 : NEXT 
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505 FOR I = 6197 TO 6261 STEP 37 I FOR J = 0 TO 6 ! 

VPOKE I + J, 32 : NEXT : NEXT s FOR J = 6198 TO 

6204 : VPOKE J, 23 : NEXT i VPOKE 6197, 24 ! VPOKE 

6205, 25 t VPOKE 6229, 22 : VPOKE 6261, 22 : VPOKE 

6237, 22 x VPOKE 6769, 22 « VPOKE 6293, 26 : VPOKE 

6301, 27 : FOR 1 = 6294 TO 6300 : VPOKE I, 23 s NEXT 

510 FOR I = 1 TO 4 : PLAY "n20s8«I60n30"i VPOKE 6228 

+ 2 * I, AN ( I ) : NEXT 

515 FOR 1 = 1 TO 7500 x NEXT x M$ ■ "Hitaanyakeyaforaanothe 

r*try"t GOSUB 1000 

520 IF INKEY* = "" THEN 570 ELSE RUN 



900 M* = "Superb!!!!!!!!!!!!": GOSUB 1000 x PLAY "sl4«20001 
10n30n32n34n36n38n40n42xi44ml000n46n48n49n50n51m700n52n5 
3n54n55m500n56n58n60" 

910 FOR I = 1 TO 3000 : NEXT : M* = "You*did*it*in‘+ 

STR*( L ) + "*tries!": GOSUB 1000 : BEEP 
920 FOR I = 1 TO 3000 : NEXT x h* *= "Hit*a*key*for*another 
game": GOSUB 1000 : BEEP 
930 IF INKEY* = "" THEN 930 ELSE RUN 



1000 FOR I = 1 TO 23 x PRINT : NEXT x PRINT H* 5 CHR*( 
11 > ! 

1010 RETURN 



10000 

DATA 

255, 

255, 255, 255, 

255, 255, 

255, 

10002 

DATA 

255, 

255, 126, 126, 

60, 60, 24, 24 

10004 

DATA 

1, 3 

, 7, 15, 31, 63, 

127, 255 


10006 

DATA 

24, 

24, 24, 255, 255 

, 24, 24, 

24 

1000G 

DATA 

146, 

84, 56, 16, 56, 

84, 146, 

0 

10010 

DATA 

108, 

254, 254, 254, 

124, 56, 

16, 0 

10012 

DATA 

255, 

255, 255, 255, 

255, 255, 

255, 


L 
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ChexSum Tables 


5 

= 2741 

205 

= 

6073 

505 

16070 

10 

= 6786 

210 

= 

5626 

510 

3736 ' 

15 

= 17294 

215 

s 

6078 

515 

5055 

20 

= 6544 

290 

s 

593 

520 

1320 

30 

= 2730 

300 

a 

1698 

900 

11357 

35 

= 2286 

305 

B 

2112 

910 

5780 

100 

= 4111 

310 

a 

910 

920 

5172 

105 

= 1423B 

315 

■ 

6007 

930 

1482 

110 

= 14677 

320 

■ 

1171 

1000 = 

2190 

115 

= 5306 

400 

■ 

954 

1010 = 

143 

140 

= 5550 

410 

■ 

2824 

10000 = 

1888 

145 

= 9809 

415 

■ 

980 

10002 = 

1654 

150 

= 4124 

420 

a 

328 3 

10004 = 

1326 

155 

= 4353 

425 

z 

4611 

10006 = 

15*15 

160 

= 5511- 

430 

= 

977 

10008 = 

1469 

165 

= 3055 

435 

= 

593 

10010 = 

1645 

200 

= 4410 

500 


8987 

10012 = 1888 

Total=230692 
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Stream Hopper 



classification: Simulation Game 

Life is tough for a little frog trying to cross a steam! In this game 
you get credit for reaching the floating log in the middle. You must 
traverse the stream as many times as you can, and your score is 
calibrated to the total number of moves you need to cross each 
time. 

A machine-code subroutine is used to scroll the screen. 

PROGRAMMING SUGGESTIONS 

The flow of the stream is controlled by the value 20 in line 150 so, 
to speed it up, change 20 to 10. The density of the lily-pads is 
determined by the value 0.65 in line 125 and 0 60 in line 135. 

Why not have different floating objects in one half of the stream? 
You could even have the odd boat (as a sprite) floating down. 
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PROGRAM 


Variables 

D 

Directions of frog (0 or 2) 

PP 

Player’s (frog) position 

NM 

Number of moves 

SC 

Score 

PR, PC 

Player’s row, player’s column 

CU 

Character under frog 

FI 

Flag for scoring at log 
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Listing 


Initialize 


5 REM RUN MACHINE CODE 

6 REM SUPPORT PROGRAM 

7 REM SEE APPENDICES 

10 COLOR 4, 7, 1 : SCREEN i, 2 : KEY OFF 
15 FOR I = <0350! TO <0401! s READ Q s POKE I, Q i NEXT 
20 FOR I = 1072 TO 107? : READ Q : VPOKE I, Q : NEXT i 

FOR I = 1104 TO 1135 : READ S : VPOKE I, Q s NEXT : 

FOR I = 1157 TO 1175 : READ Q : VPOKE I, Q : NEXT i 

FOR I = 121< TO 1223 : READ Q : VPOKE I, Q : NEXT 

25 FOR I = 1 TO 11 : PRINT : NEXT : PRINT "i*******i*Hit*a 
*Key” 

35 PLAY "124ml<0s8n<7n<7": PRINT CHR*< 11 > TAB! 8 ) 
"STREAM-HOPPER": FOR I «= 1 TO 300 i NEXT 
40 VPOKE <200 ♦ INTI RND( 1 > • <00 I , 134 i IF INKEYf 
= "" THEN FOR I ■ <140 TO <170 : VPOKE I, 32 i NEXT : 
FOR 1 = 1 TO 300 : NEXT i GOTO 35 
50 DEFUSR = <0350' : SA - <740 t FA = <783 : POKE <034<!, 
SA MOD 25< : PUKE <0147!, SA ¥ 75< : POKE <0348!, 

FA MOD 25< : POKE <0349!, FA ¥ 25< 


Set Up Screen 


100 CLS : FOR I = <155 TO <207 : VPOKE I, 141 : NEXT : 

VPOKE <144, 141 : VPOKE <145, 141 
105 FOR I = <208 TO <739 : VPOKE I, 140 t NEXT : FOR 
I = <784 TO <815 t VPOKE I, 13? : NEXT 
110 FOR I = <81< TO <911 : VPOKE I, 141 : NEXT 

115 FOR I = <49< TO <575 : J = INT< RND( 1 ) » 3 ♦ 144 ) 

: VPOKE I, J : NEXT 
120 GOSUB 1000 

125 FOR I = <240 TO <4<4 STEP 32 : FOR J = 0 TO 31 i 
IF RND( 1 ) < .<5 THEN VPOKE I ♦ J, 138 
130 NEXT : NEXT 

135 FOR 1 = <528 TO <752 STEP 32 : FOR J = 0 TO 31 : 

IF RNDI I ) < .< THEN VPOKE I ♦ J, 138 
140 NEXT : NEXT 

145 CU = 139 : PP = <799 : VPOKE PP, 134 i PC * 15 

150 ON INTERVAL = 20 GOSUB 800 : INTERVAL ON 

155 FOR I = 1 TO 5 : VPOKE <!7< + INT< RND( I ) * 31 ) 

, 152 : NEXT : FOR I = 1 TO 12 : VPOKE 6816 + INTI 

RNDI 1 ) * 95 ) , 152 : NEXT 

160 VPOKE 8208, 1? : VPOKE 8209, 55 - i VPOKE 8210, 231 : 
VPOKE 8711, 1 79 
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Control 


200 X* = INKEY* : IF X* <> "" THEN GOSUB 300 

210 IF RND( 1 > < .1 THEN GOSUB 400 

290 GOTO 200 


Read Keyboard 


300 PR = INTI I FP - 6144 ) / 32 ) s PC = PP - 32 » 

PR - 6144 

305 K = ASCI X* ) - 27 : IF K > 0 AND K < 5 THEN PLAY 
"124ml60s8ni7": ON K GOTO 310, 315, 320, 325 ELSE 
RETURN 

310 IF PC = 31 THEN RETURN ELSE INTERVAL OFF i VPOKE 
PP, CU s PP = PP + 1 : GOTO 340 
315 IF PC = 0 THEN RETURN ELSE INTERVAL OFF s VPOKE 
PP, CU : PP = PP - 1 : GOTO 340 
320 IF PR < = 2 THEN RETURN ELSE INTERVAL OFF i VPOKE 
PP, CU : PP = PP - 32 i GOTO 340 
325 IF PR > = 20 THEN RETURN ELSE INTERVAL OFF : VPOKE 
PP, CU : PP = PP + 32 

340 NM = NM + 1 : CU = VPEEKI PP ) : VPOKE PP, 134 s 
INTERVAL ON : IF CU = 32 THEN 900 ELSE 500 


Alter Screen 


400 

IF RNDI 1 

) < .5 THEN 

I = 624B 

ELSE I = 

6528 

405 

VPOKE I + 

32 * I INTI 

RND I I ) 

* 8 ) > 

, 138 l VPOKE 


I + 32 * 

1 INTI RNDI 1 

) « 8 > 

) , 32 


450 

RETURN 






Check Position 


500 IF D = 2 THEN 520 

505 IF PR = 2 THEN SC = SC ♦ 200 - NM s D = 2 ! FI = 

0 : GOSUB 1000 : NM = 0 : RETURN 
510 IF PR = 11 AND FI = 0 THEN FI = 1 s SC = SC + 50 l 
GOSUB 1000 
515 RETURN 

520 IF PR = 20 THEN D = 0 s SC = SC + 200 - NM i FI 
= 0 ! GOSUB 1000 : NM = 0 s RETURN 
525 GOTO 510 
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91919 
81B 


900 

910 

990 


1000 

1010 


10000 


10100 

10102 

10104 

10106 

10109 

10110 
10112 
10114 
10116 


Scroll Screen 


D = USR( D ) ! IF PP < = 6783 AND PP > = 6240 THEN 
PP = PP - 1 ELSE RETURN 

IF PP / 32 = INTI PP / 32 ) THEN 900 ELSE RETURN 


Game Over 


CLS : FOR I = 1 TO 50 : PLAY- "164sl4«50n50"s VPOKE 
6176 * INTI RND( 1 ) * 700 ) , 134 s NEXT 
PRINT CHR$( 11 ) ; "Scores’! SC 

END ___ 

Update Score 


PLAY "12sl0m700n44"s PRINT "Scores’; SC ; CHR*1 11 ) ( 
RETURN 


Machine Code Data 


DATA 

6, 

31, 42 

, 186 

, 235 

, 43 

, 35, 205, 27, 

235, 

120, 

254 

, 31, 

202, 

215, 

235, 

4, 43, 205, 44 

, 235, 

35, 

195, 

227, 

235, 

6, 0, 

17, 

31, 0, 25, 205 

, 

235, 

183 

, 237, 

82, 

237, 

91, 

188, 235, 123, 

189, 

194, 

196 

, 235, 

122, 

188, 

194 

, 196, 235, 201 



Character Data 


DATA 0, 36, 90, 255, 255, 189, 66, 60 
DATA 60, 124, 254, 255, 255, 755, 176, 174 
DATA 0, 131, 207, 255, 255, 755, 755, 755 
DATA 255, 255, 255, 255, 255, 747, 97, 0 
DATA 255, 255, 255, 255, 255, 255, 755, 755 
DATA 32, 255, 255, 255, 255, 255, 255, II 
DATA 8, 255, 255, 255, 255, 255, 255, I 
DATA 97, 251, 255, 255, 255, 255, 255, 704 
DATA 56, 56, 254, 254, 214, 16, 16, 16 
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ChexSum Tables 


5 

= 

0 

6 

= 

0 

7 

= 

0 

119 

= 

1228 

15 

= 

2217 

219 

= 

9678 

25 

= 

2843 

35 

= 

5332 

40 

= 

7138 

50 

= 

8130 

100 

= 

3158 

105 

= 

3798 

110 

= 

1966 

115 

= 

3923 

120 

= 

397 

125 

= 

4578 

130 

= 

320 

135 

= 

4642 

140 

= 

320 

145 

= 

1057 


150 

= 

2742 

155 

= 

7006 

160 

= 

2050 

200 

= 

1981 

210 

= 

1587 

290 

s 

593 

300 

= 

3517 

305 

r 

6014 

310 

3 

4723 

315 

S 

4671 

320 

3 

4957 

325 

S 

4298 

340 

= 

5757 

400 

= 

2613 

405 

= 

4913 

450 

= 

143 

500 

= 

733 

505 

= 

4523 

510 

= 

3364 

515 

= 

143 


520 

= 

4566 

525 

= 

643 

800 

= 

4361 

810 

= 

2554 

900 

= 

4985 

910 

= 

1659 

990 

= 

129 

1000 

= 

3084 

1010 

= 

143 

10000 

= 

21635 

10100 

= 

1538 

10102 

= 

1836 

10104 

= 

1775 

10106 

= 

1712 

10108 

= 

1888 

10110 

= 

1781 

10112 

= 

1661 

10114 

= 

1857 

10116 

= 

1587 

Total = 

186447 


Sprite Shapes 


n 

H9HVS 

FROG 

(CHARACTER) 
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Soccer Pro 



classification: Target Practice Game 

How long can you keep the ball in the air? Try to kick it through the 
holes in the roof for extra points! You can head the ball or use the 
<SPACE> bar to kick it. 


PROGRAMMING SUGGESTIONS 

It is easy to vary ball speed — check SP in line 80. But I suggest 
putting a few obstacles on the walls so that the ball bounces at a 
random angle when it strikes one of them. 

You could also add to lines 700-750 to allow kneeing' of the ball 
or some other deflections. 
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PROGRAM 

Variables 

DR Direction of ball (0-7) 

SC Score 

X, Y Ball co-ordinates 

PX Player’s X co-ordinate 

SP Speed of ball 

HH Hole hit (1 - 3) 

HT Ball hit player? 
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Listing 


Initialise 


10 REM RUN MACHINE CODE 

I 1 REM SUPPORT PROGRAM 

12 REM SEE APPENDICES 

15 SCREEN 1, 3 ; KEY OFF : COLOR 15, 3, 3 : PRINT 

iSOCCERiPRO* ' ‘ ‘ 

20 FOR I = 1 TO 32 i READ Q : A! = A* + CHR! ( Q ) j 

NEXT : SPRITEtt 0 ) = At : At = "" 

25 FOR I = 1 TO 32 : READ Q : At = A! + CHRtt Q ) : 

NEXT : SPRITE!( 1 ) = A! : At = "■ 

30 FOR I = 1 TO 37 s READ Q : At = A! + CHRtt Q ) s 

NEXT : SPRITEtl 2 ) = At : At = "" 

35 FOR I = 1 TO 8 : READ Q : At = At + CHRt ( 0 ) : 

NEXT s SPRITEtt 3 ) = At 

40 DEFUSR = 60000' : DEFUSR/ = 60/10' t POKE 59996!, /0 

45 FOR I = / TO 20 : PRINT i NEXT l PRINT "*i**A* 4i Hit*any 

*Key": POKE 59997', J s POKE 59998!, 3 : PDKE 59999!, 

/ : PUT SPRITE 0, ( /20, 100 ) , / : PUT SPRITE 
3, ( 0, 20 1 

47 FOR I = 1080 TO 1103 : READ Q ! VPOKE I, Q ! NEXT 

50 D = USR1 ( D 1 : IF VPEEK ( 6925 ) = 255 THEN POKE 

59998!, 1 ELSE IF VPEEK( 6925 1 = 1 THEN POKE 59998' 

3 ’ 

55 IF INKEYt = "" THEN 50 


Set Up Screen 


60 CLS : K = 134 : VPOKE 1072, 170 t VPOKE 1073, 127 : 
VPOKE 1074, 254 : VPOKE 1075, 127 : VPOKE 1076, 

254 : VPOKE 1077, 127 : VPOKE 1078, 254 i VPOKE 
1079, 85 i FOR I = 6144 TO 6175 i VPOKE I, K i NEXT ! 
VPOKE 6147, 32 : VPOKE 6148, 32 : VPOKE 6159, 32 i 

VPOKE 6160, 32 : VPOKE 6172, 32 : VPOKE 6173, 32 

65 FOR I = 6176 TO 6880 STEP 32 : VPOKE I, K : VPOKE 

I + 31, K : NEXT ; FOR I = 6849 TO 6879 ! VPOKE 

I, K ! NEXT 

70 FOR I = 6893 TO 6911 : VPOKE I, K ! NEXT 
75 VPOKE 8208, 195 : GOSUB 1000 : PUT SPRITE 0, ( 120, 

142 ) : PUT SPRITE 3, ( 11, 11 ) 

80 DR = 6 : SP = 7 : STRIGt 0 ) ON : ON STRIG GOSUB 800 

85 K = 6817 : FOR I = 1 TO 11 : VPOKE K, 136 s VPOKE 

K + 16, 136 : K = K - 31 : NEXJ i FOR I = 6465 TO 

6494 : VPOKE I, 137 : VPOKE I - 96, 137 : NEXT 

95 SPRITE ON : ON SPRITE GOSUB 700 
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Control 


100 POKE 599??!, 6 t D = USR( D ) 

105 IF PEEK( 59997! ) * 0 THEN VPOKE 6914, 0 
110 GOSUB 200 

120 GOSUB 300 

190 GOTO 100 

Move Ball 


200 IF DR ) 3 THEN SPRITE UM i GOTO 210 ELSE POKE 59999! 
SP : POKE 59997!, 3 i POKE 59998•, DR i D = USR1( D) 

: GOTO 220 

210 POKE 59997!, 3 : POKE 59999', SP - 1 I K1 = DR - 

4 : K2 = ( DR - 3 ) MOD 4 : POKE 59990!, K1 ! SPRITE 
ON : D = USR1I D ) : POKE 59990', K2 I D = USR1( D ) 
220 X = VPEEK( 6925 ) : Y = VPEEKt 6924 ) i RETURN 


Check Position 


300 IF Y < 8 OR Y > 192 THEN HT = 0 : PLAY " 1 9s 1 4nl?00n30 
GOTO 400 

305 IF X < 0 OR X > 249 THEN PLAY ” sSm20019n20" : GOTO 450 

310 IF X > 237 THEN HT = 0 ! PLAY *m30000s019n35 ": GOTO 

500 

315 IF Y > 168 THEN 900 
320 RETURN 


400 IF X > 19 AND X < 35 THEN HH = 1 : GOTO 420 ELSE 

IF X > 115 AND X < 131 THEN HH = 2 : GOTO 420 ELSE 

IF X > 21? AND X < 235 THEN HH = 3 i GOTO 420 

410 IF DR = 7 THEN DR = 6 : K = 2 ELSE IF DR = 0 THEN 

DR = 2 : K = - 2 ELSE IF DR = 4 THEN DR = 5 : K 

= - 2 ELSE RETURN 

415 VPOKE 692 5, VPEEKt 6925 ) + K s RETURN 
420 PLAY "ml0005014n33": FOR I = 1 TO 1000 : NEXT i 
IF HH = 1 OR HH = 3 THEN SC = SC ♦ 50 ELSE SC = 

SC + 100 

425 GOSUB 1000 : PUT SPRITE 3, ( 9, 11 ) : DR = 6 i 
RETURN 






Hit Left Wall 


450 IF DR = 4 THEN DR = 7 s K = - 2 ELSE IF DR = 1 THEN 
DR = J : K = - 2 ELSE DR = 6 : K = - 2 
455 VPOKE 6924, VPEEK( 6924 ) + K 
460 RETURN 


Hit Right Wall 


500 IF DR =7 THEN DR = 4 : K = - 2 ELSE IF DR = 6 THEN 
DR = 5 K = 2 ELSE DR = 1 i K = - 2 
505 VPOKE 6924, VPEEK( 6924 ) * K 
510 RETURN 


Head/Kick Ball 


700 IF HT = 1 THEN RETURN ELSE SPRITE OFF « SC * SC 
+ 1 i HT = 1 i GOSUB 1000 i PX * VPEEK! 6913 ) s 
IF Y > 160 THEN 720 

705 IF DR = 2 THEN IF RND( 1 > < .5 THEN DR = 4 ELSE 
DR = 7 ELSE IF DR = 6 THEN DR = 0 ELSE IF DR = 5 
THEN DR = 0 ELSE IF DR = 1 THEN DR = 7 ELSE IF DR 
= 3 THEN DR =■ 4 


710 

720 

GOTO 750 

IF VPEEK! 6914 ) = 

8 

THEN IF X < 

170 

THEN 

DR = 4 

725 

GOTO” 750 ELSE DR = 
IF VPEEK! 6914 ) « 

1 

4 

: GOTO 750 
THEN IF X > 

162 

THEN 

DR = 7 

750 

GOTO 750 ELSE DR - 
SPRITE ON : RETURN 

3 

s GOTO 750 





Try to Kick 


800 PX = VPEEK! 6913 ) s IF PX + 4 < X THEN VPOKE 6914, 
4 ELSE VPOKE 6914, 8 
810 RETURN 


Game Over 


900 STRIG! 0 ) OFF : SPRITE OFF t CLS i PRINT *miumtiG 
AMEaOVER": PRINT : PRINT : PRINT 
910 PRINT "YOUR*SCORE*HASa"; SC 
990 IF INKEY* <> "" THEN END ELSE 990 
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Update Score 


10190 FOR I = 1 TO 23 i PRINT : NEXT i PRINT "SCOREi") 
SC ; CHR$< 11 ) ; 

1010 RETURN 




Sprite Data 


10000 

DATA 3, 5, 7, 3, 

/5, 31, 27, 19, 19, 23, 

6 , 6. 6 . 


6, 6, 14, 128, 64, 192, 128, 224, 240, 176, 144, 

144, 208, 192, 192, 192, 192, 192, 224 

10010 

DATA 3, 2, 3, 1, 

7| 13, 9, 1 / , 11, 3, 

i, i, ^ 


t, 1, 192, 128, 192, 128, 224, 240, 220, 
224, 240, 152, 142, 4, 0, 128 

192, 224, 

10020 

DATA 1, 0, 1, 0, 

7, 63, 3, 1. 1, 3, 7. 12 

, 56, 16, 


0, 0, 224, 168, 224, 192, 240, 216, 204, 
224, 224, 224, 192, 64, 64, 192 

216, 192, 

10030 

DATA 48, 120, 120, 48, 0, 0, 0, 0 




Character Data 



10100 DATA 1, 2, 4, 8, li, 32, 64, 128 

10102 DATA 0, 0, 0, 0, 0, 0, 0, ?55 
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ChexSum Tables 


10 

= 0 

105 

= 

1955 

505 = 1221 

11 

= 0 

110 

= 

362 

510 = 143 

12 

- 0 

120 

= 

207 

700 = 6179 

15 

= 2822 

190 

= 

489 

705 = 10306 

20 

= 3995 

200 

= 

6852 

710 = 629 

25 

= 3996 

210 

= 

9132 

720 = 4B36 

30 

= 3997 

220 

= 

2109 

-925 = 4826 

35 

= 3497 

300 

* 

4083 

750 = 551 

40 

= 2746 

305 

= 

3496 

800 = 3236 

45 

= 9027 

310 

= 

3521 

810 = 143 

47 

= 1899 

315 

= 

1045 

900 = 3953 

50 

= 5648 

320 

= 

143 

910 = 1606 

55 

= 997 

400 

= 

9463 

990 = 1777 

60 

= 14735 

410 

= 

6676 

1000 = 2916 

65 

= 5073 

415 

= 

1443 

1010 = 143 

70 

= 1944 

420 

= 

6679 

10000 = 8271 

75 

= 2903 

425 

= 

1829 

10010 = 7438 

G0 

= 2532 

450 

= 

5567 

10020 = 7802 

85 

= 7998 

455 

= 

1221 

10030 = 1273 

95 

= 1114 

460 

= 

143 

10100 = 1205 

100 

= 1500 

500 

= 

5303 

10102 = 1006 

Total=217601 


Sprite Shapes 



MAN: STANDING 



MAN: KICKING LEFT 



MAN:KICKING RIGHT 



BALL 
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Sea Harrier 



classification: Target Practice Game 

Your mission: drop depth charges from your harrier jet onto a 
submarine without detonating a nuclear mine. You land on the 
aircraft carrier to refuel and the game ends when the carrier runs 
out of fuel. 

Controls: 

<UP> Move up or take-off 

<DOWN> Move down 
<LEFT> Commence landing 

<RIGHT> Speedup 
<SPACE> Drop depth charge 

programming suggestions 

If you find it difficult to land, line 522 contains the requirements for 
a good landing. 

Adding several mines to the sea would make it more 
challenging to drop charges without blowing yourself to pieces 1 
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PROGRAM 


Variables 


DC 

Depth charge dropped? 

FL 

Fuel left 

TF 

Total fuel left 

LD 

Landing? 

ST 

Stopped? 

RF 

Refueled? 

SB 

Number of the sprite colliding with ship 

NS 

Number of submarines blown 

BM 

Blown mine 

% 
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Listing 



10 REM RUN MACHINE CODE 

11 REM SUPPORT PROGRAM 

12 REM SEE APPENDICES 

15 COLOR 15, 4, 7 : SCREEN 1, 2 i KEY OFF 

20 FOR I = 1 TO 32 i READ 0 : A* = A$ + CHR*( Q ) : 

NEXT : SPRITE*! 0 ) * A* i PUT SPRITE 0, < 120, 

35 ) ! A* = "" 

25 FOR I = 1 TO 32 : READ 0 i A* » A* ♦ -CHR*! Q ) i 

NEXT i SPRITE*! 1 ) = A* » A* = "“ 

30 FOR I = 1 TO 8 : READ Q s A* = A* + CHR*! Q ) « 

NEXT : SPRITE*! 2 ) = A* : SPRITE*! 3 ) = A* « A* = " * 

35 FOR I = 1 TO 32 : READ Q : A* = A* ♦ CHR*! D ) s 

NEXT : SPRITE*! 4 ) = A* : A* = 

40 FOR I = 1 TO 32 : READ Q : A* = A* + CHR*( 0 ) i 

NEXT ! SPRITE*! 5 > = A* : A* = "" 

45 FOR I = 1 TO 8 : READ Q : A* = A* + CHR*< Q ) i 
NEXT : SPRITE*! 6 ) = A* 

50 FOR I = 1088 TO 1095 : READ Q : VPOKE I, Q s NEXT i 

FOR I = 1152 TO 1175 : READ Q s VPOKE I, Q s NEXT i 

DEFUSR0 = 60000' : DEFUSR1 = 60118! j POKE 59996!, 15 
55 FOR I = 1 TO 10 ! PRINT ! NEXT t PRINT "****Hit*Any*Key 
*to*Start" 

60 FOR I = 1 TO 11 i D = RND( 1 ) : IF INKEY* <> "■ 

THEN 70 ELSE READ A* : VPOKE 6153 + I, ASC( A* ) « 

READ N : B* = "n"* STR*< N ) s PLAY "si»255115xb*;"i 
FOR T = 1 TO 100 : NEXT : NEXT * 

65 FOR I = 1 TO 500 i NEXT s FOR I = 6154 TO 6164 t 

VPOKE I, 32 ! NEXT I RESTORE 10200 t 60T0 60 



70 CLS : FOR I = 6496 TO 6527 : VPOKE I, I NT( RND! 1) 

* 3 + 144 ) : NEXT : FOR I = 6848 TO 6879 : VPOKE 

I, 23 : NEXT : PUT SPRITE 0, < 0, 16 ) 

72 FOR I = 6848 TO 6879 : VPOKE I, 23 : NEXT s PUT 

SPRITE 0, ( 0, 16 ) , 8 

75 FOR I = 1 TO 23 : PRINT ! NEXT : PRINT "FUEL:*! 
CHR*( 11 ) J 

80 PUT SPRITE 4, ( 0, 75 ) , 14 : PUT SPRITE 1, ( 0, 
140 ), 1 

05 K1 = INTt RND! 1 ) * 150 + 40 ) t PUT SPRITE 2, 

t Kl, 100 ) , 1 : K2 = INTt RND! 1 ) * 50 + 30 ) s 
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PUT SPRITE 3, ( KI + K2, 100) , 1 
90 STRIG ( 0 )' ON : ON STRIG GOSUB 900 : SPRITE ON : 
ON SPRITE GOSUB 500 

95 ON INTERVAL = 180 GOSUB 1000 : INTERVAL ON i TF 
= 30 : FL = 16 : GOSUB 1100 s SB * 100 


Control 


100 

105 
110 
1 15 
120 
130 
190 


200 

205 

215 

220 

240 


250 

255 

260 

265 


D = USR( D ) : IF PEEK( 59997! ) = 0 THEN IF PEEKt 
59998! ) = 1 THEN LD = 1 

K1 = VPEEK( 6912 ) : IF K1 > 75 AND K1 < 190 THEN 700 
GOSUB 200 
GOSUB 250 

IF DC = 1 THEN GOSUB 300 

IF LD = 1 THEN POKE 59996!, 13 ELSE POKE 59996!, 15 
GOTO 100 


Move Harrier 


IF ST = 1 AND VPEEK( 6912 ) > 65 THEN RETURN 
IF RF = 1 AND VPEEK( 6912 ) < 65 THEN RF = 0 i ST 
= 0 : LD = 0 i SPRITE ON 

IF LD = 1 AND RF ■ 0 THEN K1 = 2 j K2 = 1 : GOTO 240 
KI = 3 : K2 = 4 

POKE 59997!, 0 i POKE 59998', Kl ! POKE 59999!, 

K2 : D = USRM D ) i RETURN 


Move Submarine 


Kl = RNlfl 1 ) i IF Kl < .5 THEN K2 * 3 ELSE IF Kl 
< .75 THEN K2 = 0 ELSE K2 = 2 

IF VPEEK( 6916 ) < 110 THEN K2 = 2 ELSE IF VPEEK! 
6916 ) > 160 THEN K2 = 0 

POKE 59997!, 1 : POKE 59998!, K2 : POKE 59999!, 

2 : D = USR1( D ) 

RETURN 


Move Depth Charge 


300 POKE 59997!, 6 : 

D = USR1 ( D > 

305 IF VPEEK! 6936 ) 
6 , ( 100 , 200 ) 
310 RETURN 


POKE 59998!, 2 i POKE 59999!, 3 t 
> 175 THEN DC = 0 i PUT SPRITE 
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Collision 



6019 

640 

650 

660 

700 

710 


SPRITE OFF i IF DC = / AND! VPEEK( 6912 ) < 65 OR 

VPEEK( 6912 ) > 190 OR VPEEKI 6913 ) > 16 ) THEN 

IF VPEEKI 6936 ) < 90 THEN SB = 6 j GOTO 550 ELSE 

IF VPEEKI 6936 ) < tit THEN 650 ELSE 600 

IF LD = 0 AND ST = 0 THEN SB = 0 : GOTO 550 

IF LD = 1 THEN ST = 1 t LD = 0 ELSE IF ST ■ 1 THEN 

RETURN 

LD = 0 : RF = 1 ; TF = TF - 16 + .FL i IF TL < 0 
THEN 700 ELSE IF TF > 0 THEN FL ' 16 i GOSUB 1/00 

IF VPEEKI 69/3 ) <> 5 AND VPEEKI 69/3 ) <> 6 THEN 

SB = 0 : GOTO 550 
SPRITE ON i RETURN 



VPOKE 69 14 + SB # 4, 20 : GOSUB Z200 : FOR K/ * 
/ TO 200 ! NEXT : VPOKE 6930, 20 ! GOSUB Z200 i 
FOR K/ = / TO Z000 s NEXT t GOTO 2000 



NS = NS + / : VPOKE 69/9, 15 : VPOKE 69/8, 20 s 
GOSUB 1200 : FOR 14 = / TO 1000 » NEXT : PUT SPRITE 
6, I /00, 200 ) : PUT SPRITE /, I 0, /40 ) , / s 
VFOKE 69/8, 4 
SPRITE ON : RETURN 



VPOKE 6938, 20 t VPOKE 6939, 15 i GOSUB 1200 t FOR 
KZ = I TO 1000 : NEXT ! BN = / 

GOTO 2000 



VPOKE 69/2, 70 : VPOKE 69/4, 20 i GOSUB 1200 i FOR 
KZ = 1 TO 1000 s NEXT 
GOTO 2000 
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Drop Depth Charge 


900 IF DC = 1 THEN RETURN 

905 DC = 1 : 11 = VPEEK( 6912 ) i 12 = VPEEK( 6913 ) i 
IF 12 < 8 THEN DC = 0 t RETURN ELSE PUT SPRITE 6, 

( 12 - 8, II ) ,1 
910 RETURN 


Update Fuel Gauge 


1000 FL = FL - 1 j VPOKE 6988 + FL, 32 

1010 IF FL < 0 THEN 700 ELSE RETURN 


Refresh Fuel Gauge 


1100 FOR 13 = 4888 TO 6903 : VPOKE 13, 136 i NEXT 
1120 RETURN 


Explosion 


1200 PLAY "13m200s8n27" 
1210 RETURN 


Game Over 


2000 SCREEN 1 : PRINT "AAiAiAAiiGAMEiOVER" 

2010 PRINT : PRINT 

2015 PRINT "Numberiof*subs*destroyed:’j NS : PRINT s PRINT 
2020 IF SB = 0 THEN PRINT "THATaWASaAaNASTYaLANDINGa-*": 

PRINT "YOU*HAVE*BEEN*DEFEATED!!!": GOTO 2100 
2025 IF SB = 6 THEN PRINT ”YOU»DROPPED*A*DEPTH*CHARGE*i 
PRINT "ON*YOUR»OMN*SHIP!!”8 GOTO 2100 
2030 IF BM = 1 THEN PRINT "NUCLEAR*HINES*DETONATED!! ! *i 
GOTO 2100 

2035 IF TF < 0 OR FL < 0 THEN PRINT “»******OUT*OF*FUEL!!!"I 
GOTO 2100 

2100 IF INKEY* = "" THEN END ELSE 2100 
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SpriteData 


100(30 DATA 0, 0, 0, 0, 0, 192, 224, 241, 2 55, 127, 127, 

31, 63, 124, 0, 0, 0, 0, 0, 0, 0, 0, 112, 236, 242, 
255, 238, 216, 0, 0, 0, 0 

10010 DATA 0, 0, 0, 0, 0, 2, 7, 6, 7, 127, 255, 255, 127, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 128, 128, 192, 254, 255, 
255, 254, 0, 0, 0 

10020 DATA 0, 90, 60, 126, 126, 60, 90, 0 
10030 DATA 0, 0, 0, 0, 192, 192, 240, 240, 240, 255, 255, 
255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0, 

0, 255, 254, 252, 248, 240, 224, 192 
10040 DATA 0, 4, 66, 136, 2, 64, 18, 42, 10, 165, 43, 

144, 40, 1, 64, 18, 128, 16, 4, 32, 1, 72, 33, 146, 
204, 22, 200, 92, 64, 9, 0, 32 
10050 DATA 40, 56, 16, 16, 56, 56, 56, 16 


Character Data 


10100 

DATA 

255, 

171 

, 213, 171, 213, 171, 213, 255 

10102 

DATA 

0, 

0, 

<. 

154, 97, 0, 0, 0 

10104 

DATA 


0, 

0, 

13, 210, 32, 0, 0 

10106 

DATA 

0, 

0, 

8, 

181, 66, 0, 0, 0 


Front Screen Data 


10200 DATA S, 30, E, 32, A, 35, 34, H, 35, A, 34, 

R, 33, R, 32, I, 33, E, 34, R, 35 


ChexSum Table 


10 

= 0 

65 

11 

= 0 

70 

12 

= 0 

72 

15 

= 1236 

75 

20 

= 5019 

80 

25 

= 3996 

85 

30 

= 4903 

90 

35 

= 3995 

95 

40 

= 3996 

100 

45 

= 3500 

105 

50 

= 7907 

110 

55 

= 3649 

115 

60 

= 11102 

120 


= 

3890 

130 

= 

2464 

= 

6993 

190 

= 

489 

= 

2731 

200 

= 

2093 

= 

2560 

205 

= 

3904 

= 

1794 

215 

= 

3106 

= 

7394 

220 

= 

850 

= 

2947 

240 

= 

3703 

= 

5410 

250 

= 

4849 

= 

4651 

255 

= 

3840 

= 

2960 

260 

= 

3303 

= 

362 

265 

= 

143 

= 

410 

300 

= 

3164 

= 

973 

305 

= 

2913 
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310 

= 

143 

500 

= 

11347 

510 

= 

2469 

515 


2913 

520 

= 

5593 

522 

= 

3852 

525 

= 

551 

550 

= 

6292 

600 

= 

6979 

640 

= 

551 

650 

= 

3207 

660 

= 

603 

700 

= 

2669 

710 

= 

603 


900 

= 

903 

905 

= 

5833 

910 

= 

143 

1000 

= 

1865 

1010 

* 

1360 

1100 

= 

2188 

1120 

= 

143 

1200 

= 

1130 

1210 

= 

143 

2000 

= 

2155 

2010 

= 

350 

2015 

= 

35B2 

2020 

= 

6960 

2025 

= 

6022 


2030 

= 

3680 

2035 

= 

3698 

2100 

= 

1366 

10000 

= 

7050 

10010 

= 

6280 

10020 

= 

1411 

10030 

= 

8226 

10040 

= 

7419 

10050 

= 

1411 

10100 

= 

1873 

10102 

= 

1110 

10104 

= 

1156 

10106 

= 

1112 

10200 

= 

3662 


Tot al=257202 


Sprite Shapes 



MINE DEPTH 

CHARGE 





SUBMARINE 


SHIP 
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Robot Raiders 



CLASSIFICATION: ShOOt-Out 

Swarms of suicidal robot ships are attacking your gun ship. You 
must use the rotating cannon to blast the raiders before they 
reach the ship. Some of the robot ships disappear at random, so 
they are worth more points than the others. 

Use the <l> key to rotate the cannon and the <SPACE> bar to 
fire. 

PROGRAMMING SUGGESTIONS 

You will notice that the speed of the bomb and the raiders 
increases as the game proceeds. This effect is caused by line 155 
which sets the distance each sprite is moved. Try changing the 
expression that is poked into 59999 to alter the overall speed of < * 

the game. 
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PROGRAM 

Variables 


R, SC 

Round number; score 

D(l) 

Direction for path 1 

P 

Path number (1 -4) 

F 

Fired? 

SM, S(l) 

Sprite moved; sprite 1 there? 

AB 

All ships blown? 




Listing 


Initialise 


1 TIME = 0 

10 REM RUN MACHINE CODE 

11 REM SUPPORT PROGRAM 

12 REM SEE APPENDICES 

15 COLOR 15, 4, 7 i SCREEN 1, 2 : CLS i KEY OFF i PRINT 

a iiR*OiBiOATAiRiAiI A DtE*RAS*! print i PRINT i PRINT : 
PRINT 

20 FOR I = 1 TO 8 s READ 0 t A* « A* + CHR* ( Q ) l 
NEXT s SPRITE*( 0 ) = A* i A* » "" • 

25 FOR I = 1 TO 32 i READ 0 t A* * A* ♦ CHR* t Q ) : 

NEXT ! SPRITE*( 1 1 = A* i SPRITE*! 2 ) * A* ! SPRITE*! 

3 ) = A* : SPRITE*! 4 ) = A* « A* = "* 

30 FOR I = 1 TO 32 i READ Q j A* = A* ♦ CHR*! 0 ) : 

NEXT : SPRITE*! 5 ) = A* : A* = "“ 

35 FOR I = 1 TO 32 i READ Q s A* = A* + CHR*! 0 ) : 

NEXT : SPRITE*! 6 ) = A* 

*0 DEFUSR = 60118! 

45 D!l)=2:D(2)=3:D(3)=0sD(4)*l 

50 INPUT "aaAREaYOUaREADYaTOaSTART"; X* 

60 P = 1 


Set Up Screen 


100 

CLS 

: COLOR 

11, 6, 6 


• 

105 

FOR 

I = 6158 

TO 6894 

STEP 32 s FOR J 

= 0 TO 2 l 


VFOKE I + J, 

255 i NEXT j NEXT 


110 

FOR 

I = 6464 

TO 6559 

i VPOKE I, 255 ! 

NEXT 

115 

FOR 

I = 6445 

TO 6449 

i VPOKE I, 28 s 

NEXT i FOR 


I = 

6464 TO 

6528 STEP 

32 ! VPOKE I + 

13, 28 l VPOKE 


I + 

17, 28 : 

NEXT 



120 

FOR 

I = 6573 

TO 6577 

■ VPOKE I, 28 i 

NEXT 

125 

PUT 

SPRITE 5 

, ( 116, 

83 ) , 1 i GOSUB 

1000 


New Round 


150 AB = 0 : R = R + 1 t PUT SPRITE 1, < 116, 0 ) , 

8 : PUT SPRITE 2, ( 0, 83 ) , 1 : PUT SPRITE 3, 

( 116, 1 92 ) , 8 s PUT SPRITE 4, ! 255, 83 ) , 1 
155 POKE 59999!, 1NT( R / 3 ) +1 
160 GOSUB 350 : STRIG! 0 ) ON r.ON-STRIG GOSUB 320 
170 SPRITE ON s ON SPRITE GOSUB 500 

175 FOR I = 1 TO 4 s S < I > = 1 s NEXT 
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Control 


200 IF F = 1 THEN 220 

210 GOSUB 300 

220 IF F = 1 THEN GOSUB 400 

230 SPRITE OFF ! GOSUB 450 : SPRITE ON 

235 ST* = STR*( TIME ) : DG = VAL< RI6HT*( ST*, 1 ) ) 

240 IF DG > 1 OR RND( 1 ) < .95 THEN 200 

245 IF RND( 1 ) < .5 THEN PUT SPRITE 2, ( 11 6, 200 ) i 

S ( 2 ) = 0 s GOTO 260 

250 PUT SFRITE 4, ( 200, 200 > t S ( 4 > = 0 

260 AB = 1 : FOR I = I TO 4 i IF S ( I ) = 1 THEN AB = 0 

265 NEXT s GOTO 200 



300 

KP* = INKEY* : 
RETURN 

IF KP* 

<> "1 

’ AND KP* <> 

305 

P = P + I : IF 

P • 5 

THEN P 

“ 1 

310 

GOSUB 350 i RETURN 



320 

IF F = 1 THEN 

RETURN 



322 

PLAY "119m380sl0n37* 



325 

F = 1 : ON P GOTO 330 

, 335, 

340, 345 

330 

PUT SPRITE 0, 

( 120, 

70 ) , 

1 s RETURN 

335 

PUT SPRITE 0, 

( 103, 

87 ) , 

1 ■ RETURN 

340 

PUT SPRITE 0, 

( 120, 

103 ) 

, 1 s RETURN 

345 

PUT SPRITE 0, 

( 13 7, 

87 ) , 

1 s RETURN 


350 VPOKE 6447, 28 t VPOKE 6509, 28 : VPOKE 6575, 28 i 
VPOKE 6513, 28 

360 ON P GOTO 365, 370, 375, 380 
365 VPOKE 6447, 255 t RETURN 

370 VPOKE 6509, 255 ! RETURN 

375 VPOKE 6575, 255 s RETURN 

380 VPOKE 6513, 255 : RETURN 



400 TP = PEEK! 59999! ) : POKE 59997!, 0 i POKE 59999!, 2 

405 POKE 59998!, P - 1 s D = USR( D ) i POKE 59999!, TP 

410 ON P GOTO 415, 420, 425, 430 

415 IF VPEEK( 6912 ) < 5 THEN F = 0 i PUT SPRITE 0, 

( 200, 200 ) i RETURN ELSE RETURN 
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420 

425 

430 


450 

455 

460 

465 

470 

475 

480 

485 

490 


500 

510 

520 

530 

535 

540 


600 

630 


640 


1000 


IF VPEEK( 6913 ) < 5 THEN F = 0 : PUT SPRITE 0, 

( 200, 200 ) i RETURN ELSE RETURN 

IF VPEEK( 6917 ) > 197 THEN F = 0 : PUT SPRITE 0, 

( 200, 200 ) : RETURN ELSE RETURN 

IF VPEEK! 6913 ) > 250 THEN F = 0 I PUT SPRITE 0, 

( 200, 200 ) : RETURN ELSE RETURN 


Move Enemy 


SM = SM + 1 : IF SM = 5 THEN SH = 1 

IF AB = 1 THEN 150 

IF S ( SM ) = 0 THEN 450 

POKE 59997!, SM ! POKE 59998!, D ( SM > : D = USR! D ) 

ON SM GOTO 475, 480, 485, 490 

IF VPEEK! 6916 ) > 67 THEN 600 ELSE RETURN 

IF VPEEK! 6911 ) > 95 THEN 600 ELSE RETURN 

IF VPEEK! 6924 ) < Ill THEN 600 ELSE RETURN 

IF VPEEK! 6979 ) < 145 THEN 600 ELSE RETURN 


Blow Ship 


STRIG! 0 ) OFF s SPRITE OFF : F = 0 t IF P = 1 OR 

P = 3 THEN SC = SC + 20 ELSE SC = SC + 100 

GOSUB 1000 s S ( P ) = 0 s PUT SPRITE P, ! 10, 200 ) 

: VPOKE 6914, 24 

PLAY "t255164r64in70sl0n26n2" 

FOR T = 1 TO 150 i NEXT i VPOKE 6914, 0 i PUT SPRITE 

0 , ( 200 , 200 ) 

AB = 1 ! FOR I = 1 TO 4 : IF S ! I ) = 1 THEN AB * 0 
NEXT : STRIG! 0 ) ON i SPRITE ON i RETURN 


Game Over 


STRIG! 0 ) OFF 

CLS : SCREEN 1 : PRINT "aaaaaaaaaGAMEaOVER*: PRINT : 
PRINT : PRINT : PRINT : PRINT ■ aaaaaYOURaSCOREaNASa"S 
SC 
END 


Update Score 


FOR I = 1 TO 23 : PRINT s NEXT s PRINT "SCORE’i 
SC i CHR$< 11 ) ; ; RETURN 
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Sprite Data 


10000 

DATA 

24, 

24, 

6B, 

755, 

755 

, 60, 

74, 74 



10010 

DATA 

167 

, 48 

, 96 

, 96, 

774 

, 193, 

776, 754, 

731, 

199 


19 5, 

774 

, 96 

, 96 

CO 

16, 

8, 17 

i 4 , 6, 7, 

131, 

71, 


171, 

731 

, 777, 195, 7 

, 3, 

3, 6, 

4 



10020 

DATA 

1, 

1, 1 

, 3 , 

15, 

12, 

77, 751, 751, 77 

, 12, 

15, 


3, 1 

, 1, 

1, 

178, 

178, 

178 

, 122, 

240, 48, 

716, 

773, 


773 , 

716 

, 48 

, 748, 197, 178, 178, 178 



10030 

DATA 

178 

, 4, 

64, 

0, 1 

44, 

5, 40, 

■134, 67, 

177, 

68, 


16, 

68, 

0, 1 

28, 

16, 4 

, 

179, 

16, 6, 179 

, 146 

« 


34, 

75, 

167, 

16, 

65; 

0, 8 

, B, 129 




ChexSum Table 


1 

= 461 

230 

10 

= 0 

235 

11 

= 0 

240 

12 

= 0 

245 

15 

= 4659 

250 

20 

= 4011 

260 

25 

= 6939 

265 

30 

= 3996 

300 

35 

= 3484 

305 

40 

= 972 

310 

45 

= 2088 

320 

50 

= 2247 

322 

60 

= 339 

325 

100 

= 582 

330 

105 

= 3564 

335 

110 

= 1874 

340 

115 

= 4969 

345 

120 

= 1777 

350 

125 

= 1395 

360 

150 

= 58B2 

365 

155 

= 1832 

370 

160 

= 1945 

375 

170 

= 1176 

380 

175 

= 1499 

400 

200 

= 938 

405 

210 

= 207 

410 

220 

= 1012 

415 


8 

1278 

420 

= 

3399 

a 

2960 

425 

= 

3574 

s 

2330 

430 

= 

3639 

S= 

3553 

450 

= 

2155 

= 

1581 

455 

B 

939 

= 

2624 

460 

= 

1189 

= 

784 

465 

= 

2849 

= 

3338 

470 

= 

1914 

= 

1813 

475 

= 

1756 

= 

460 

480 

= 

1797 

= 

835 

485 

= 

1822 

= 

1260 

490 

= 

1875 

= 

1663 

500 

= 

5300 

= 

1088 

510 

= 

25B7 

= 

1081 

520 

= 

1911 

= 

1121 

530 

= 

2681 

= 

1376 

535 

= 

2624 

= 

2154 

540 

= 

1513 

= 

1360 

600 

= 

766 

= 

821 

630 

= 

5272 

= 

885 

640 

= 

129 

= 

949 

1000 

= 

3084 

= 

889 

10000 

= 

1519 

= 

3024 

10010 

= 

8179 

= 

281,5 

10020 

= 

8480 

= 

1572 

10030 

= 

7606 

= 

39B9 






Total= 

184010 
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Sprite Shapes 



ENEMY SHIP PLAYER'S GUNSHIP 



EXPLOSION BOMB 
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Alligator! 



CLASSIFICATION: Time-limit Game 

Help the starving alligator to find food by guiding it to plants, 
exotic fish and the delicious yellow fish. All of the yellow fish must 
be eaten and the alligator must reach the right hand side of the 
screen within the given time limit. 

If you forget that alligators can’t stay under water forever then 
the poor thing will drown! Keep an eye on the air gauge at the top 
of the screen. 

PROGRAMMING SUGGESTIONS 

In line 35, a number is poked into 59999 to control the speed of the 
alligator. Change it to 2 for a hard game, 4 to make it easy. 

What if the alligator had bigger lungs? Increase the number 20 
in line 165 and the alligator will be able to stay under for longer. 








PROGRAM 


Variables 

Al 

Air left initially 

TM 

Overall time used 

AR 

Air left per dive 

PN 

Sprite 0 pattern number 

R, SC 

Round number, score 

FL 

Flag: air refreshed? 

NM 

Number of alligators left 

TL 

Time left to reach other side 
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Listing 



10 REM RUN MACHINE CODE 

11 REM SUPPORT PROGRAM 

12 REM SEE APPENDICES 

15 KEY OFF ! COLOR /, 4, 4 : SCREEN 1, 2 : PRINT "aaa 

aa ALL I GATOR!" : FRINT : PRINT : PRINT : PRINT 

20 FOR I = I TO 32 : READ Q : A* = A* + CHR*( Q ) : 

NEXT : SPRITE*! 0 ) = A* : A* = "" ' 

25 FOR I = / TO 8 : READ Q : A* = A* + CHR*( Q ) : 

NEXT : FOR I = / TO 4 : SPRITE*! I ) = A* : NEXT i 

A* = "" 

30 FOR I = / TO 32 : READ Q : A* = A* + CHR*( Q ) : 
NEXT : SPRITE*! 5 > = A* 

35 NM = 3 : DEFUSR = 60000' s POKE 5999*', 13 s POKE 
59999!, 3 : SPRITE ON : ON SPRITE GOSUB 500 
40 FOR I = 60350' TO 6040/' : READ 0 : POKE 1,0: 
NEXT : DEFUSR/ • 60350' i POKE 60346!, 96 : POKE 
60347', 24 : POKE 60348', 255 : POKE 60349!, 26 

45 FOR I = /088 TO 12 80 STEP 64 : FOR J = 0 TO 7 : 

READ Q : VPOKE I ♦ J, 0 i NEXT : NEXT 
50 PRINT "aaaaaHITaANYaKEYaTOaSTART" 

55 IF INKEY* = "" THEN 55 



100 CLS : IF NM = 0 THEN 600 

105 FOR I = 6240 TO 627/ : VPOKE I, 23 : NEXT 

110 FOR I = 6274 TO 6882 STEP 32 : FOR J = 0 TO 29 : 

K = 10 * ( TIME / 10 - INT! TIME / /0 > ) s IF RND( 

/ ) < .95 THEN /40 

115 IF K < / THEN VPOKE I + J, 144 : GOTO 140 

120 IF K < 6 THEN VPOKE I + J, i36 : GOTO 140 

125 VPOKE I + J, 1 52 
140 NEXT i NEXT 

145 K = K • 3 + 80 : PUT SPRITE /, ( 30, K ♦ 30 > , 

11 ! PUT SPRITE 2, ( 80, K + 77 ) , // i PUT SPRITE 
3, ( 120, K + 20 ) , // : PUT SPRITE 4, ! 700, K 
+ 60 ) , II 
155 R = R + / 

160 PUT SPRITE 0, ( 0, 80 ) , / 

165 TIME = 0 ! AI - 70 - R : TM = 0 i GOSUB 1000 : PRINT 

CHR*( 11 ) : PRINT "AIR": GOSUB //00 
170 ON INTERVAL = 15 GOSUB 650 : INTERVAL ON 

180 VPOKE 8209, 36 : VPOKE 82/0, 70 : VPOKE 8211, 1 48 : 

VPOKE 82/2, 164 
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Control 


200 D = USR( D ) : SPRITE ON : IF PN = 0 THEN PN = 20 
ELSE PN = 0 

205 GOSUB 1000 : VPOKE 6914, PN : IF AR = ftl THEN 700 

210 IF TL < 1 THEN 600 

220 IF VPEEK ( 6912 ) < 20 THEN GOSUB 400 : POKE 59996!, 

12 : GOTO 230 ELSE IF VPEEKI 69 12 ) < 185 THEN POKE 

59996!, 13 ELSE POKE 59996!, 9 

225 FL = 0 

230 IF VPEEK( 6913 > < 253 THEN 240 

235 IF VPEEKI 6916 > = 200 AND VPEEKI 6920 ) = 200 AND 

VPEEKI 6924 ) = 200 AND VPEEKI 6928 ) = 200 THEN 
100 ELSE CLS : INTERVAL OFF i FOR I = 0 TO 5 i PUT 
SFRITE I, I 30 * I, 200 ) : NEXT : PRINT "***Y0U*I11SSED 
iSOMEiFISH!!!!PRINT : PRINT "iYou»Have"NM - 1 
"A11igators*Left": FOR T = 1 TO 2500 : NEXT i NM 
= NM - 1 : GOTO 100 


240 

Kl = INTI 

I VPEEKI 6913 ) 

+ 14 ) 

/ 8 ) + 32 * I 


INTI I VPEEKI 
Kl ) = 32 THEN 

6912 ) 
200 

+ 4 1 

1 / 8 ) 

) + 6144 : IF VPEEKI 

250 

IF VPEEKI 

Kl ) 

= 152 

THEN 

GOSUB 

450 

260 

IF VPEEKI 

Kl ) 

= 144 

THEN 

550 


270 

280 

IF VPEEKI 
GOTO 200 

Kl ) 

= 136 

THEN 

GOSUB 

300 


Eat Plant 


300 INTERVAL OFF : SC = SC + 10 s VPOKE Kl, 32 : GOSUB 
1000 

310 INTERVAL ON : RETURN 


Alligator Breathes 


400 IF FL = 1 THEN 420 

410 TM = TM + INTI TIME / 60 ) : TIME = 0 : GOSUB 1100 : 

FL = 1 
420 RETURN 


Eat Exotic Fish 


450 INTERVAL OFF : SC = SC + 20 s VPOKE Kl, 32 : GOSUB 
1000 

435 PLAY "154ntl200sl0n54" 

460 INTERVAL ON : RETURN 
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Eat Yellow Fish 


500 SFRITE OFF : IJ = VPEEK ( 6913 ) : IF II < 39 THEN 

510 ELSE IF II < 89 THEN 520 ELSE IF II < 129 THEN 

530 ELSE GOTO 540 
510 IF II > 22 THEN RETURN 
512 PUT SPRITE 1, ( 30, 200 ) s GOTO 549 
520 IF II > 72 THEN RETURN 
522 PUT SPRITE 2, ( 80, 200 ) i GOTO 549 
530 IF II > 112 THEN RETURN 
532 PUT SPRITE 3, ( 120, 200 ) : GOTO 549 
540 IF II > 192 THEN RETURN 
542 PUT SPRITE 4, ( 200, 200 ) 

549 SC = SC + 150 : PLAY "124ml60s8n27n27": GOSUB 1000 ! 

RETURN 



550 INTERVAL OFF i FOR I « 1 TO 4 I COLOR 1, 15, 15 : 

PLAY "m8000sl 12n30": FOR J =■ 1 TO 150 : NEXT : COLOR 

1, 4, 4 : FOR J • 1 TO 150 : NEXT : NEXT 

555 CLS : FOR I = 0 TO 5 i PUT SPRITE I, ( 30 * I, 200 ) 

: NEXT : PRINT " *L ANDaM I NES*GI VEaALL I GATORS*": PRINT 
"aVERY^BAD*INDIGESTION!!!!" 

560 PRINT : PRINT ! PRINT : PRINT "*YouAHave"NM - 1 
"Alii gatorSALeTt *i FOR J = 1 TO 2500 s NEXT 
580 NM = NM - 1 : GOTO 100 


600 SCREEN 1 : PRINT "aaaaaaaaaaGAMEaOVER".! PRINT i 
PRINT : PRINT : PRINT 
610 PRINT '' aaaaaYoutAS coreAwasA” i SC 
620 IF INKEY* = "" THEN END ELSE 620 


650 D = USR1( D ) : RETURN 


700 CLS : INTERVAL OFF : FOR I = 0 TO 5 i PUT SPRITE 

I, ( 30 * I, 200 ) : NEXT : PRINT ’aaaaaaALLIGATORaDROW 
NED" 














705 PRINT : PRINT : PRINT : PRINT "*You*Have"; NM - 
1 ; "A11igators*LeTt" 

710 PLAY "Ufn59000s8n2": FOR T = / TO 2500 i NEXT 
720 NM = NM - 1 : GOTO 100 


Update Score/Time 


1000 AR = I NT( TIME / 60 ) : VPOKE 6183 * AR, 32 

1010 TL = 50 - TM - AR : PRINT CHRft 11 ) ; "SCORE*": 

SC ; TAB( 19 ) ; "TIME:*"; TL 
1020 RETURN 


1100 


10000 


10010 

10020 


10100 


10200 
10202 
1 0204 
10206 



FOR I = 6183 TO 6183 + AI : VPOKE I, 160 : NEXT 
RETURN 



DATA 

0, 0, 0, 0, 192, 

96, 96 

, 11 9, 63 

. 63 

24, 

48, 48, 0, 0, 0, 0 

, 0, 0 

, 1, 2, 1 80. 

240, 

224, 96, 192, 96, 

48 



DATA 

128, 196, 110, 63 

, 63, 

lie, 196, 

128 

DATA 

0, 0, 0, 128, 192 

. 172, 

96, 119, 

63, 

15, 

24, 48, 97, 97, 0, 

0, 0, 

0, 0, 0, 

16, 

2 55, 

240, 224, 96, 192 

, 128, 

128 




DATA 6, 31, 42, 186, 235, 43, 35, 205, 27, 235, 
120, 254, 31, 202, 215, 235, 4, 43, 205, 44, 235, 
35, 19 5, 227, 235, 6, 0, 17, 31, 0, 25, 205, 44, 
235, 183, 237, 82, 237, 91, 188, 235, 123, 189, 
174, 196, 235, 122, 188, 194, 196, 235, 201 



DATA 146, 84, 185, 82, 181, 24, 16, 40 
DATA 0, 90, 60, 126, 126, 60, 90, 0 
DATA 3, 6, 108, 176, 240, 108, 6, 3 
DATA 255, 255, 255, 255, 255, 255, 255, 255 
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ChexSum Table 


10 

= 

0 

11 

= 

0 

12 

= 

0 

15 

= 

4021 

20 

= 

3995 

25 

= 

5137 

30 

= 

3483 

35 

= 

4477 

40 

= 

7435 

45 

= 

3576 

50 

= 

2010 

55 

= 

1002 

100 

= 

1107 

105 

= 

1640 

110 

= 

7003 

115 

= 

2170 

120 

= 

2155 

125 

= 

814 

140 

= 

320 

145 

= 

7496 

155 

= 

673 

160 

= 

780 

165 

= 

4167 

170 

= 

2876 

180 

= 

1936 

200 

= 

3166 


205 

= 

2203 

210 

= 

907 

220 

= 

7227 

225 

= 

409 

230 

= 

1726 

235 

- 

26305 

240 

= 

7006 

250 

= 

1778 

260 

= 

1476 

270 

= 

1602 

280 

= 

593 

300 

= 

3161 

310 

= 

1304 

400 

= 

968 

410 

= 

3281 

420 

= 

143 

450 

e 

3155 

455 

a 

1304 

460 

K 

1304 

500 

S 

6270 

510 

= 

905 

512 

= 

1366 

520 

= 

961 

522 

= 

1422 

530 

= 

1001 

532 

= 

1 466». 


540 

= 

1081 

542 

= 

1016 

549 

= 

3260 

550 

= 

7556 

555 

= 

8369 

560 

= 

5403 

580 

= 

1392 

600 

= 

2594 

610 

z 

2161 

620 

= 

1416 

650 

= 

916 

700 

= 

6357 

705 

= 

4031 

710 

= 

2465 

720 

= 

1392 

1000 

= 

2267 

1010 

= 

4514 

1020 

= 

143 

1100 

= 

2334 

10000 

= 

7116 

10010 

= 

1790 

10020 

a 

7901 

10100 

a 

21635 

10200 

a 

1579 

10202 

a 

1411 

10204 

a 

1403 

10206 

= 

18B8 


Sprite Shapes 


Total= 254072 



ALLIGATOR: MOUTH OPEN 



ALLIGATOR: MOUTH CLOSED 



GOLDFISH 


93 








Convoy 



classification: Time-limit Game 

You are a saboteur and your mission is to stop a convoy of enemy 
trucks from passing you. The idea is to set time bombs 
underneath the road by positioning your boat on the underground 
river. 

The problem: your own trucks (painted red) must be allowed to 
pass and you have no control over the fuses on your bombs! 

Press the <SPACE> bar to set a bomb or patch up the road — 
and beware of falling trucks! 

PROGRAMMING SUGGESTIONS 

The falling trucks would look great if there was a big splash and 
noise when they hit the water. The code to achieve this would go in 
the ‘Drop Truck’ routine, lines 550-580. 
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PROGRAM 


Variables 

NT 

Last new truck 

SC 

Score 

MD 

Minimum distance between trucks 

C(l) 

Sprite colours 

RD, RS 

Random number; random number seed 

FI, FS 

Fuse length; fuse-set flag 

LT 

Last truck moved 

CS 

Current speed of trucks 

PC 

Player’s column 

BP 

Bomb’s position 

BS 

Bomb set flag 




Listing 


Initialise 


Id REM RUN MACHINE CODE 

11 REM SUPPORT PR06RAM 

12 REM SEE APPENDICES 

15 COLOR 1, 7, 7 s SCREEN 1, 2 s KEY DFF : PRINT "aaaaaa* 
aaaCONVOY *"i FOR I = 1 TO 9 : PRINT : NEXT 
20 FOR I = 1 TO 32 i READ 0 : A* = A* +'CHR*< Q ) s 

NEXT s SPRITE*! 0 ) = A* ! A* = "" 

25 FOR I = 2 TO 32 : READ Q 8 A* = A* + CHR*< Q ) t 

NEXT : FOR I = i TO 4 s SPRITE*! I ) = A* s NEXT 
30 PUT SPRITE 1, ( 20, 50 ) , 1 s PUT SPRITE 2, ( 80, 

50 ) , 8 : PUT SPRITE 3, ( 160, 50 > , 1 s PUT SPRITE 

4, ( 220, 50 ) , 8 

35 DEFUSR0 = 60000! : DEFUSRI = 60118! s POKE 59996!, 10 
40 PRINT "aaaaHi t aA ny 4 Key a tO aS tart" 

50 IF INKEY* = THEN 50 

60 CS = 2 

70 FOR I = 1088 TO 1095 STEP 2 i VPOKE I, 170 i VPOKE 
I + 1, 85 : NEXT : FOR I = 1152 TO 1159 s VPOKE 
I, 255 : NEXT : VPOKE 8209, 231 8 VPOKE 8210, 71 


Set Up Screen 


100 

CLS : FOR I = 

6336 TO 6463 8 VPOKE I, 136 8 

NEXT 8 


FOR 1 = 6592 

TO 6815 s VPOKE I, 

144 s NEXT 


105 

FOR I = 6816 

TO 6847 8 VPOKE I, 

23 s NEXT 


110 

FOR I = 1 TO 

23 t PRINT b NEXT 

8 PRINT "BD«bs *| 


CHR*( 11 ) ; 

s GOSUB 1000 



120 

PUT SPRITE 1, 

( 10, 200 ) 8 PUT 

SPRITE 2, ( 

40, 


200 ) s PUT SPRITE 3, ( 70, 200 

) s PUT SPRITE 4, 


( 100, 200 ) 

s NT = 1 s MD = 25 

8 GOSUB 400 


130 

PUT SPRITE 0, 

( 120, 95 ) , 11 



140 

STRIG! 0 ) ON 

! ON STRIG GOSUB 950 


150 

RS = 10001 * 

( TIME / 60 - INTI 

TIME / 60 > 

) 

160 

ON SPRITE GOSUB 750 




Control 


200 

POKE 59999!, 

5 

s D = USR0! D ) 


205 

GOSUB 900 8 

IF 

FS = 0 AND RD < .2 

THEN 60SUB 900 


FL *= INT( RD 

# 

5 + 1 ) s FS = 1 8 

TIME « 0 

207 

GOSUB 1100 
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210 LT = LT + / : IF LT = 5 THEM LT = 1 

212 IF VPEEK( 6912 ♦ 4 * LT ) = 200 THEN 210 ELSE POKE 

59997!, LT : POKE 59998!, 1 s POKE 59999!, CS i 

D = USR1I D I s IF( VPEEK( 6913 + 4 * LT ) < 2 + 

CS ) AND C ( LT ) = 1 THEN 800 

213 IF VPEEK! 6913 + 4 * LT ) < 2 + CS THEN PUT SPRITE 
LT, ( 30 f LT - 20, 200 ) 

215 C = I NT( ( VPEEK! 6913 M > LT I » 8 I / t ) : 

IF VPEEK! 6368 + C ) = 32 AND VPEEK! 6367 + C > 

= 32 AND VPEEK! 6369 ♦ C ) =32 THEN GOSUB 550 


220 

225 

230 

240 

IF FS = I AND BS = 

700 

IF BS = 1 AND INT( 
GOSUB 900 : IF RD 
GOTO 200 

0 AND INT! TIME / 60 ) 

TIME / 60 ) > FL THEN 
< .05 THEN GOSUB 400 

> FL THEN 

BOSUB 450 



Patch Up Road 

350 

PLAY "19ml000sl4n53": IF PC < 

3 THEN 

380 


352 

IF PC > 28 THEN 392 




355 

FOR 11 = 6336 TO 6432 STEP 32 

: FOR 

12 ‘ = 

PC - 2 


TO PC + 2 





360 

IF VPEEK! 11 + 12 

) - 32 THEN 

VPOKE 

11 + 

12, 136 

365 

NEXT ! NEXT : RETURN 




380 

FOR 11 = 6336 TO 6432 STEP 32 

j FOR 

12 = 

0 TO PC 

385 

IF VPEEK! 11 + 12 

) = 32 THEN 

VPOKE 

11 ♦ 

12, 136 

390 

NEXT : NEXT : RETURN 




392 

FOR 11 = 6336 TO 6432 STEP 32 

: FOR 

12 * 

29 TO 31 

394 

IF VPEEK! 11 +.12 

) = 32 THEN 

VPOKE 

11 ♦ 

12, 136 

396 

NEXT : NEXT : RETURN 






New Truck 

400 

3 = 0 : FOR I = 1 

TO 4 : IF VPEEK! 6912 ♦ 

4*1) 


= 200 THEN J = I 





405 

NEXT 





410 

IF J = 0 THEN RETURN 




415 

XP = VPEEK! 6913 + 

4 » NT ) ! 

IF 255 

- XP 

< HD THEN 


RETURN 





420 

NT = 3 i GOSUB 900 

s IF RD < . 

4 THEN 

C ( 

NT ) * 


1 ELSE C ( NT ) = 

8 




425 

PUT SPRITE NT, ( 255, 34 ) , C 

( NT 

J 


430 

RETURN 







Blow Bomb 

450 

PLAY "s8m200164n30n28n76n24"i 

FS = 0 

: VPOKE 6464 


+ BP, 32 s BS = 0 

i IF BP - 31 

THEN 

470 
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455 

460 

465 

470 

475 

490 

4B5 


500 

510 

520 


550 

555 

560 

565 

570 

590 


700 


740 


750 


900 


IF BP = 0 THEN 480 

FOR J = 6336 TO 6432 STEP 32 : FOR K = BP - 1 TO BP ♦ 1 

VPOKE J + K, 32 : NEXT i NEXT s RETURN 

FOR J = 6336 TO 6432 STEP 32 s FOR- K = 29 TO 3/ 

VPOKE J + K, 32 : NEXT : NEXT : RETURN 

FOR J = <336 TO 6432 STEP 32 s FOR K = 0 TO 2 

VPOKE J ♦ K, 32 i NEXT : NEXT s RETURN 


Place Bomb 


BS = 1 : BP * PC : VPOKE 6464 + PC, 133 

PLAY "154*/2005j0n35- 

RETURN 


Drop Truck 

SPRITE ON : POKE 59997!, LT « POKE 59998', 2 » POKE 
59999!, 3 ' 

D = USR1( D ) s IF VPEEK( 6912 ♦ 4 * LT ) < 100 
THEN 555 

IF C ( LT ) = 8 THEN 800 

SC = SC + 50 : VPOKE 6912 + 4 * LT, 200 i VPOKE 
6913 + 4 * LT, LT # 30 - 20 


IF SC < 300 THEN CS = 3 ELSE IF SC < 500 THEN CS 

4 ELSE IF SC < 700 THEN CS = 5 ELSE IF SC < 900 

THEN CS = 6 ELSE IF SC < 1400 THEN CS = 7 ELSE CS = 8 

GOSUB 400 : SPRITE OFF : 60SUB 1000 , RETURN 


FOR I = 1 
10 * RD + 
♦ INTf 60 
GOTO 800 


Blow Player 


TO 40 s GOSUB 900 : A$ = "n l, + STR*{ INT( 
Ills PLAY "164n350s8xa$;“t VPOKE 14336 
* RD ) , RD * 255 s NEXT 


Man Squashed 


CLS : PRINT "YOU 4 HAVE*JUST*BEEN*SQUASHED" ! FOR I 
* I TO 2500 s NEXT 


STRIGt 0 ) 
FOR I = 1 
*was"; SC 


Game Over 


OFF s SCREEN I s PRINT 
TO 9 s PRINT i NEXT : PRINT 


***aaaBAME*OVER"i 
AAAAiiYour A Score 
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810 IF INKEY* = "" THEN END ELSE 810 


Random Number 


900 RD = t 9999 « RD + RS > NOD 2997! » RD = RD / 2997! 
910 IF RD < .5 THEN RS = RD « 10000 + 1 
920 RETURN 


Space Bar Pressed 


950 PC = INTI ( VPEEK ( 69/3 ) + 8 ) / 8 ) 

955 IF VPEEK( 6432 ♦ PC ) <> 32 AND BS = 0 THEN GOSUB 

500 : RETURN 

960 IF VPEEK( 6432 + PC ) = 32 THEN GOSUB 350 « RETURN 
965 RETURN 


Update Score 


1000 FOR I = / TO 22 i PRINT i NEXT i PRINT TAB( 16 ) 
CHR*( 10 ) "Scor#t"| SC j CHR*< 11 > 5 
1010 RETURN 


Print Time Left for Fuse 


1100 I = FL - 1NT( TINE / 60 ) » IF 1 < 0 THEN I = 0 

1110 IF FS = 0 THEN VPOKE 6888, 32 l RETURN ELSE VPOKE 

6888, 48 + I i RETURN 


Sprite Data 


10000 DATA 1, 19, 17, 15, 7, 3, 1, 3, 7, 6, 255, 735, 

255, 127, 63, 31, 128, 200, 136, 240, 274, 192, 

128, 192, 64, 96, 255, 255, 255, 254, 252, 248 

10010 DATA 0, 15, 23, 18, 114, 149, 181, 255, 248, 231, 

95, 63, 56, 0, 0, 0, 0, 255, 69, 21, 75, 101 , 21, 
255, 0, 255, 254, 254, 14, 0, 0, 0 
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ChexSum Table 


us 

= 0 

225 

= 2877 

11 

= 0 

230 

= 1704 

12 

= 0 

240 

= 593 

15 

= 4362 

350 

= 2316 

2<3 

= 3995 

352 

= 956 

25 

= 4580 

355 

= 2965 

30 

= 4196 

360 

= 2590 

35 

= 2781 

365 

= 525 

40 

= 2333 

380 

= 2263 

50 

= 997 

385 

= 2590 

60 

= 412 

390 

= 525 

70 

= 6615 

392 

= 2199 

100 

= 4236 

394 

= 2590 

105 

= 1768 

396 

= 525 

110 

= 3182 

400 

= 3692 

120 

= 6020 

405 

= 131 

130 

= 899 

410 

= 838 

140 

= 1687 

415 

= 3426 

150 

= 2701 

420 

= 3581 

160 

= 750 

425 

= 1459 

200 

= 1540 

430 

= 143 

205 

= 5332 

450 

= 5520 

207 

= 238 

455 

= 1026 

210 

= 2131 

460 

= 2826 

212 

= 11034 

465 

= 1256 

213 

= 4245 

470 

= 2076 

215 

= 8B31 

475 

= 1256 

220 

= 3431 

480 

= 1988 


Sprite Shapes 


485 

= 

1256 

500 

= 

2085 

510 

= 

1305 

520 

= 

143 

550 

= 

2898 

555 

= 

2924 

560 

= 

965 

565 

= 

4287 

570 

= 

9650 

580 

= 

1476 

700 

= 

8346 

740 

= 

391 

750 

= 

4083 

800 

= 

6613 

810 

= 

1349 

900 

= 

3332 

910 

= 

2168 

920 

= 

143 

950 

= 

2111 

955 

= 

3193 

960 

= 

2069 

965 

= 

143 

1000 

= 

4035 

1010 

= 

143 

1100 

= 

2857 

1110 

= 

2995 

10000 

= 

8B9B 

10010 

= 

7900 

Total 

= 230712 



MAN IN BOAT 



TRUCK 
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Gorilla Maths 



classification: Educational Game 

Fred is keen to climb the hill to meet the maths gorilla. When you 
answer a question correctly, the falling rock doesn’t push Fred 
back to the start and he moves closer to the gorilla. 

You can have questions about addition or multiplication and 
there are two levels of difficulty. When you have answered a 
question, press <RETURN>. 

PROGRAMMING SUGGESTIONS 

Perhaps you could animate the gorilla while the rock is falling or 
have it shake hands when she meets Fred. How about a sharp cry 
of pain when the rock hits Fred? 








PROGRAM 


Variables 

j 

Jumped flag 

LD 

Level of difficulty 

Q 

Question type (1 - 2) 

RP 

Rock’s pattern (8 or 12) 

N1, N2 

Numbers to add/multiply 

NB 

New 'ball' flag 

C 

Count of digits of player’s answer 

PA 

Player's answer 

SP 

Speed of rock 

M$ 

Message 
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Listing 


Initialise 


1 COLOR 15, 4, 7 : SCREEN 1, 3 : KEY OFF s ON INTERVAL 
= J GOSUB 4 i INTERVAL ON 

2 GOTO 5 

4 D = RND( 1 ) : RETURN 

5 FOR I = 6145 TO 6148 s VPOKE I, 23 i NEXT s FOR 

I = 6174 TO 6174 s VPOKE I, 23 : NEXT i VPOKE 6144, 

24 : VPOKE 617 5, 25 : VPOKE 6880, 26 : VPOKE 6911, 

27 : FOR I = 6176 TO 6848 STEP 32 : VPOKE 1, 22 s 
VPOKE I + 31, 22 : NEXT t FOR I = 6881 TO 6910 : 

VPOKE I, 23 : NEXT 

10 PRINT "AiGiOiRAULiLiA^HiAAUlUS": FOR I = 1 TO 
9 : PRINT : NEXT 

20 FOR I = 1 TO 32 : READ Q s A* * At + CHR*( 0 ) i 

NEXT : SPRITE*! 0 ) = A* i A* - "" 

25 FOR I = 1 TO 32 : READ Q i A* ■ A* ♦ CHR*< 0 ) I 

NEXT : SPRITE*! 1 ) ■ At i A* « ■■ 

30 FOR I = 1 TO 8 i READ Q i A* * A* + CHR*( Q ) i 
NEXT : SPRITE*! 2 ) - A* ! A* = ■■ 

35 FOR I = 1 TO 8 j READ 0 s A* = A* + CHR*( Q ) ! 

NEXT ! SPRITE*! 3 ) ■ A* 

37 FOR I = 1088 TO 1119 s READ Q : VPOKE I, Q r NEXT 

40 PUT SPRITE 1, ( 116, 30 ) , 1 

45 INPUT "Hoy 1d*you*1ikeAto*add*(a)multipiy*(m)*the 
*numbers"i X* 

50 IF X* = "m" OR X* = "M" THEN Q = 2 : GOTO 60 

55 IF X* = "a” OR X* = “A" THEN 0 = I ELSE 45 

60 PRINT : INPUT "Homhard 4 ! l*or*2) " j X* s IF X* < 

"1” OR X* > ”7“ THEN 60 
65 LD = VAL! X* ) 

70 CLS s fOR I = 6374 TO 6397 i VPOKE I, 138 s NEXT i 
FOR I = 6688 TO 6712 : VPOKE I, 138 ; NEXT 

75 VPOKE 8209, 228 : PUT SPRITE 1, < 92, 23 ) i PUT 

SPRITE 0, ( 0, 104 ) , 9 

80 FOR 1 * 0 TO 5 i VPOKE 6176 + 33 # I, 136 i NEXT i 

FOR I = 0 TO 6 : VPOKE 6495 + 31 t I, 137 : NEXT 

85 FOR I = 6208 TO 6368 STEP 32 : FOR J • 0 TO K i 
VPOKE I ♦ J, 139 : NEXT : K = K + 1 s NEXT 
90 K = 0 : FOR I = 6527 TO 6719 STEP 32 l FOR J = - 

K TO 0 : VPOKE I + J, 139 : NEXT : K = K ♦ 1 t NEXT 

95 INTERVAL OFF i SPRITE ON : ON SPRITE GOSUB 700 


103 




Print Question 


100 C = 0 .• NB = 0 : RP = 8 i PA = 0 : PUT SPRITE 2. 

( 0 , 1 ) ' 

102 M* = "HhatiisitheiansMer?”: GOSUB 1000 
105 IF Q <> 1 THEN 120 

110 IF LD = 1 THEN N1 = I NT < RND( 1 > » 10 + 1 > : N2 

= I NT( RND t 1 ) * 10 ♦ 1 ) ELSE N1 = I NT( RND( 1 > 

* 20 + 1 ) : N2 = INTI RNDI 1 ) • 20 ♦ 1 ) 

115 K = 43 : GOTO 140 

120 IF LD = 1 THEN N1 = INTI RNDI 1 ) * 5 + I ) « N2 
= INTI RNDI 1 ) * 5 ♦ 1 ) ELSE N1 = INTI RND I I ) 

* 10 + I ) : N2 = INTI RNDI 1 ) » 10 ♦ I ) 

125 K = 120 

140 FOR I = 1 TO 20 s PRINT s NEXT « PRINT TAB! < ) , 

: PRINT USING"##"; N1 ; I PRINT TAB! 9 ) ; CHR* I K) 

i TAB! 11 ) ; • PRINT USING "##"; N2 j i PRINT TABI 
14 ) ; "=*???"; CHR$ I 11 ) ; 

150 J = 0 



300 GOSUB 400 : IF NB = 1 THEN 100 
310 GOTO 500 

390 GOTO 300 


400 

405 

410 

420 

425 

430 

440 



IF LD = 1 THEN SP = 2 ELSE SP = 3 
K1 = VPEEKI <921 > i K2 = VPEEKI <920 ) i IF KI 
' 4 <> INTI Kl / 4 ) THEN IF RP = 8 THEN RP = 12 
ELSE RP = 8 


VPOKE <922, RP •. IF K1 < 49 AND K2 < 46 THEN VPDKE 
<921, Kl + SP s VPOKE <920, K2 + SP i RETURN 
IF K2 < 50 AND Kl < 240 THEN VPOKE <921, KI ♦ SP i 
IF Kl ) <2 AND Kl < 125 THEN VPOKE 6916, 0 : RETURN 
ELSE VPOKE 6916, 23 : RETURN 


IF K2 < 80 THEN VPOKE <920, K2 ♦ SP : RETURN 
IF K2 < 125 THEN VPOKE <920, K2 + SP i VPOKE <921. 
Kl - SP ! RETURN ' 


IF Kl < 5 THEN NB = 1 ; RETURN ELSE VPOKE <921. 
KI - SP : RETURN 
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Read 


500 Xt = INKEY* i IF X* = "■ THEN 300 

505 IF( X* < "0" OR X* > "9") AND X* <> CHR*< 13 ) THEN 
300 

510 IF X* = CHR*( 13 ) THEN 600 ELSE IF C = 0 THEN VPOKE 

6802, 32 : VPOKE 6803, 32 : VPOKE 6804, 32 

515 C = C + 1 : IF C > 3 THEN 600 ELSE PA = PA # 10 

+ VALt X* ) : VPOKE 6801 + C, 48 + VAL( X* ) : GOTO 

300 


Check Answer 


600 IF C = 0 THgN 300 ELSE M* = "*i**4******* 4 *i*4*** , « 
GOSUB 1000 s IF Q <> 1 THEN 650 
605 IF N1 + N2 <> PA THEN 300 
610 GOTO 660 

650 IF N1 * N2 <> PA THEN 300 

660 IF NB = 1 THEN 300 ELSE J = 1 i SPRITE OFF : K1 

= VPEEK( 6920 ) : K2 * VPEEK! 6921 ) : IF K1 < 50 
THEN VPOKE 6912, 23 i IF K2 < 200 THEN VPOKE 6913, 

K2 ELSE VPOKE 6913, 200 i PUT SPRITE 2, ( 100, 200 ) 
: NB = 1 ELSE IF K2 > 195 THEN VPOKE 6913, 165 ELSE 
VPOKE 6913, K2 
665 SPRITE ON s GOTO 300 


Sprite Collision 


700 SPRITE OFF : IF J = 1 THEN GOSUB 1100 ! RETURN 
705 IF VPEEK ( 6912 ) < 70 AND VPEEK( 6913 ) < 115 THEN900 

710 FOR 12 = 1 TO 10 s VPOKE 6912, VPEEK! 6912 > - 10 i 

PLAY "m380s8164n56": FOR II = 1 TO 100 t NEXT » 

VPOKE 6912, VPEEK! 6912 ) + 10 s PLAY *■700164«0n50"i 
NEXT 

720 3 = 0 i PUT SPRITE 0, 1 0, 104 > s PUT SPRITE 2, 

« 0, 0 ) » NB = 1 : SPRITE ON : RETURN 


Game Over 


900 SCREEN 1 i FOR 1 « 1 TO 10 : PRINT i NEXT « PRINT 

"HOORAY! !i-»You*h«vejiiiiet*the": PRINT "NathsiGori11 a* 
910 PLAY "m255sl18o5«dto4bo5co4b5agao5co4bo5d1lc" 

990 END 
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Print Message 


1000 FOR I = i TO 23 ! PRINT s NEXT ! PRINT "** 4*5 M* j 
CHR*( 11 ) ; 

1010 RETURN 


Player Jumps 


1100 PLAY "164n60"» NB = 1 : J = 0 : K3 = VPEEKt 6913 ) 
: K4 = VPEEKI 6912 ) t IF K4 > 50 THEN IF K3 < 165 
THEN VPOKE 6913, K3 + 20 i SPRITE ON : RETURN ELSE 
VPOKE 6912, 23 : SPRITE ON i RETURN 
1110 VPOKE 6913, K3 - 30 : SPRITE ON : RETURN 


Sprite Data 


10000 DATA 1, 2, 1, 1, 7, 15, 13, 9, 9, 11, 3, 3, 3, 3, 
6, 14, 192, 166, 192, 64, 246, 249, 216, 9, 200, 
232, 96, 96, 96, 96, 49, 56 

10010 DATA 3, 5, 31, 59, 113, 249, 237, 199, 135, 135, 

207, 30, 29, 12, 6, 30, 129, 64, 246, 194, 29, 62, 
116, 199, 194, 194, 236, 246, 112, 96, 192, 246 
10020 DATA 96, 240, 96, 0, 0, 0 , 0 , 0 
10030 DATA.64, 224, 224, 64, 0, 0 , 0 , 0 


Character Data 


10100 DATA 129, 64, 166, 96, 169, 94, 176, 85 
10102 DATA 1, 2, 5, 16, 21, 42, 95, 176 
10104 DATA 255, 176, 95, 176, 95, 176, 85, 176 
10106 DATA 85, 176, 85, 176, 85, 170, 85, 170 


106 







ChexSum Table 


1 

= 4266 

105 

= 1092 

650 

- 

1590 

2 

= 394 

lie 

= 10117 

660 

= 

15461 

4 

= 1018 

115 

= 97B 

665 

S 

851 

5 

= 13556 

120 

= 9978 

700 

= 

164^ 

10 

= 3373 

125 

= 453 

705 

= 

2719 

20 

= 3995 

140 

= 8086 

710 

= 

8801 

25 

= 3996 

150 

= 333 

720 

= 

3121 

30 

= 4013 

300 

= 1287 

900 

= 

6011 

35 

= 3497 

310 

= 633 

910 

= 

3837 

37 

= 1915 

390 

= 433 

990 

= 

129 

40 

= 827 

400 

= 1893 

1000 

= 

2513 

45 

= 5871 

405 

= 6734 

1010 

= 

143 

50 

= 2652 

410 

= 4454 

1100 

= 

9916 

55 

= 2420 

420 

= 6227 

1110 

= 

1365 

60 

= 3992 

425 

= 1926 

10000 

= 

6990 

65 

= 1016 

430 

= 2976 

10010 

= 

9496 

70 

= 4133 

440 

= 2747 

10020 

= 

1153 

75 

= 2375 

500 

= 1569 

10030 

= 

1279 

80 

= 4875 

505 

= 3352 

10100 

= 

1642 

05 

= 4389 

510 

= 4176 

10102 

= 

1279 

90 

= 5026 

515 

= 6334 

10104 

= 

1721 

95 

= 2403 

600 

= 4489 

10106 

= 

1656 

100 

= 2594 

605 

= 1588 




102 

= 2886 

610 

= 539 

Total= 

251195 


Sprite Shapes 



PLAYER STANDING 




ROCK: 
POSITION 1 


TTmim 



.U.J 

ROCK: 
POSITION 2 
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Chopper Landing 



classification Simulation Game 

Special packages are needed desperately in a highrise building. 
Guide your chopper onto the two lower buildings to transport the 
packages to the tallest building. Don’t land on this building as it 
doesn’t have a heliport, so that landing there while loaded causes 
a crash. 

Two packages must be taken from each building, and the 
scoring is: 


hit target 

100 

hit building 

50 

successful pick-up 

10 


Your score will be better if you work quickly. Use the <SPACE> 
bar to drop a package. 
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PROGRAMMING SUGGESTIONS 

Tamper with the numbers assigned to J and in the RND(1) 
statements in lines 200-220 to make the chopper sway more or 
less and speed up or slow down. 

A good exercise in graphics programming would be to improve 
the buildings and landscape. How about some windows or 
parked cars? 

To make the game longer, you could add a few packages and 
make the player drop them in a certain order. 

PROGRAM 
Variables 

sc 

NP 
SP 
DR 
LD 

B1, B2 


Score 

Number of packages left 
Speed for chopper 
Directions (up or down bias) 

Loaded 

Number of packages moved from each building 
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Listing 


Initialise 


1 REM CHOPPER LANDING 

10 REM RUN MACHINE CODE 

11 REM SUPPORT PROGRAM 

12 REM SEE APPENDICES 

30 COLOR 11, 1, 1 : SCREEN 2, 2 

35 FOR I = 1 TO 75 : READ XI, Y1, X2, Y2 : LINE( XI, 

YI ) - ( X2, Y2 ) , II : NEXT 

40 PAINT! 100, 100 ) : PAINT! 170, 130 ) : PAINT! 85, 

135 ) : PAINT! 70, 130 ) : PAINT! 40, 100 ) : PAINT! 
20, 100 ) ! PAINT! 210, 170 ) : PAINT! 140, 180 ) 

: PAINT! 40, 1(50 ) 

50 FOR I = 1 TO 32 : READ Q : A* = A* + CHR*( Q ) s 

NEXT : SPRITE*! 0 ) = A* : PUT SPRITE 0, ( 240, 

0 ) , 10 : A* = M " 

55 FOR I = 1 TO 32 : READ Q : A* = A* + CHR*< Q ) : 

NEXT : FOR I = 1 TO 4 : SPRITE*! I ) = A* : NEXT t 

A* = PUT SPRITE I, ( 226, 70 ) , 14 : PUT SPRITE 



2, ( 241, 70 ) 


14 : PUT 

SPRITE 3, ( 226, 

100 


, M : 

PUT SPRITE 

4, ! 241 

, 100 ) , 14 


60 

FOR I 

= 1 TO 32 

: 

READ Q : 

A* = A* + CHR*( 

Q ) 


NEXT : 

SPRITE*! 

5 

) = A* : 

A* = n " 


65 

FOR I 

= 1 TO 32 

: 

READ Q : 

A* = A* + CHR*( 

0 ) 


NEXT : 

SPRITE*! 

6 

) = A* i 

A* = 


67 

FOR I 

= 1 TO 32 

: 

READ Q : 

A* = A* + CHR*( 

Q ) 


NEXT : 

SPRITE*! 

7 

) = A* 



70 

DEFUSR 

= 60000' 

: 

DEFUSR1 

= 60118! s POKE 

59996 


15 : POKE 59997 

» 

<3 

Z 

II 

4 ! DR = 2 : SP 

= 1 


TIME = 

0 





80 

STRIG! 

0 ) ON : 

ON STRIG GOSUB 800 



Control 


100 POKE 5999?!, SP : D = USR! D ) 
110 GOSUB 200 

120 GOSUB 300 

190 GOTO 100 


Move Chopper 


200 IF RND( 1 ) < .7 THEN K = DR r J = 1 : GOTO 215 

205 J = 4 : IF RND! 1 ) < .5 THEN K = 1 s GOTO 215 
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210 K = 3 

215 POKE 59999!, J : POKE 59998', K : D = USR1( D ) 
220 RETURN 
300 K = VPEEK ( 6918 ) 

691 ?, 4 : RETURN 


305 IF K > 168 THEN 500 
310 IF K < 30 THEN RETURN 

315 X = VPEEK( 6913 ) : IF X > 209 THEN VPOKE <913, 

209 ! IF K > 160 THEN 500 ELSE RETURN 
320 IF X < 150 THEN 330 ELSE IF K < 80 THEN RETURN ELSE 

IF X > 200 THEN 500 ELSE IF X < 165 THEN RETURN 

ELSE IF LD = 1 THEN 500 ELSE B2 = B2 + 1 i GOTO 400 
330 IF K > 140 THEN 500 ELSE IF X < <0 THEN 340 ELSE 
IF K > 50 THEN RETURN ELSE 500 
340 IF K < 60 THEN RETURN ELSE IF K > 100 THEN 500 ELSE 

IF K > 80 THEN RETURN ELSE IF LD = 1 THEN 500 ELSE 

B1 = B1 + 1 s GOTO 400 
390 RETURN 


Pick Up Package 


400 LD = 1 : PUT SPRITE NP, ( 235, 130 ) : PUT SPRITE 

6 , ( 233, 160 ) , 15 : DR = 0 : SC = SC + 10 : VPOKE 
6912, VPEEK! 6917 ) - 2 
410 IF B1 > 2 OR B2 > 2 THEN 700 
440 RETURN 


Crash 


500 PUT SPRITE 6 , ( 100, 200 ) : PUT SPRITE 7, ( 233, 
160 ) , 15 : VPOKE 6914, 20 : FOR I = 1 TO 30 i 
PLAY "160ml000514n50" : NEXT : FOR I = 1 TO 2500 : 
NEXT i PUT SPRITE 7, ( 200, 200 ) 

550 GOTO 900 


Wrong Building 


700 SCREEN 1 ! PRINT "TWO*PACKAGES*MUST a BE*TAKEN 4 "! 

PRINT "FROMaEACH*BUILDING" i FOR I = I TO 3000 : NEXT 
710 PRINT "Please*try*aqain"l IF INKEY* = "" THEN END 
ELSE 710 


: IF K < 4 OR K > 191 THEN VPOKE 


Check Position 


111 








Drop Package 


B00 IF LD = 0 THEN RETURN 

805 PUT SPRITE 6, I 100, 200 ) : PLAY "1Sml000sl4n40": 
LD = 0 : DR = 2 s II = VPEEKI 6913 ) : IF II < 150 
THEN 820 ELSE IF II < 170 THEN PUT SPRITE NP, ( 

II, 1611 ) : NP = NP - I : GOTO 850 ELSE IF II < 

200 THEN PUT SPRITE NP, ( 11, 90 ) : NP = NP - 1 : 
GOTO 850 ELSE PUT SPRITE NP, I II, 160 ) : NP = 

NP - 1 : GOTO 850 

820 IF II > 140 THEN PUT SPRITE NP, t II, 145 ) r NP 
= NP - 1 : GOTO 850 ELSE IF II < 60 THEN 840 ELSE 

IF II < 72 THEN PUT SPRITE NP, ( 11, 145 ) : NP 

= NP - I : GOTO 850 ELSE IF II < 100 OR II > 106 

THEN PUT SPRITE NP, ( II, 32 ) : SC = SC + 50 : 

NP = NP - 1 : GOTO 850 

830 PUT SPRITE NP, ( II, 32 ) : SC = SC + 100 : PLAY 
"mil00sSl3n 50": NP = NP - 1 : GOTO 850 

840 IF II < 22 OR II > 55 THEN PUT SPRITE NP, < II, 

110 ) ! NP = NP - 1 : GOTO 850 ELSE PUT SPRITE NP, 

( II, 70 ) : NP = NP - 1 

850 IF NP = 0 THEN FOR II = 1 TO 2000 : NEXT i GOTO 900 

860 RETURN 


Game Over 


900 SCREEN 1 : PRINT " kkkk A** 4 *tGAME aOVER": PRINT s 
PRINT : PRINT 

910 PRINT "^ii^YOURiSCOREiWAS"; SC 
915 IF NP <> 0 THEN 940 ELSE K = 150 - TIME / 60 : IF 
K < 0 THEN K = 0 

920 PRINT : PRINT : PRINT "PI us»Bonus*For*Moving*al1*of " : 
PRINT "theiPackages: "; INTI 8 * K > t PRINT : PRINT 
"This»gi ves*aitotaUofa"; SC ♦ INTI 8 » K ) 

940 IF INKEY* = "" THEN END ELSE 940 


Drawing Data 


10000 DATA 100, 14, 100, 18, 100, 14, /48, 41, 100, 14, 
72 , 41 , 100, 18, 145, 44, 100, 18, 75, 42, 120, 
68, 148, 41, 120, 68, 72, 41, 120, 68, 120, 160, 
72, 41, 91, 145, 148, 41, 140, 140 
10002 DATA 0, 100, 120, 160, 0, 112, 110, 168, 88, 190, 
110, 168, 110, 190, 140, 160, 140, 160, 195, 190, 













10004 

DATA 98, 

136, 

109, 142, 

98, 136, 100, 150, 100, 


150, 108, 

142 

, 109, 142 

, 110, 155, 

102, 43, 

120 , 


43, 102, 

43, 

113, 50, 102, 43, 109, 

36, 113, 

50, 


120, 43, 

113, 

50, 109, 

36, 109, 36, 

120, 43 


10006 

DATA 180, 

70, 

159, 91, 

180, 70, 214 

, 90, 180 

, 73, 


161, 91, 

180, 

73, 213, 

91, 180, 70, 

180, 73, 

159, 


91, 194, 

109, 

159, 91, 

150, 150, 194, 109, 177, 


164, 714, 

90, 

192, 149, 

194, 109, 215, 90 


10008 

DATA 79, 

139, 

75, 120, 

75, 120, 87, 

126, 75, 

120 , 


84, 111, 

78, 

137, 61, 178, 61, 128, 

59, 122, 

59, 


122, 76, 

130, 

59, 122, 

82, 100, 60, 

130, 46, 

83, 


46, 83, 21, 70, 46, 83, 

59, 70 



10010 

DATA 59, 

70, 

35, 57, 35 

, 57, 21, 70 

, 21, 70, 

40, 


119, 40, 

117, 

16, 105, 

16, 105, 10, 

93, 10, 

93, 


35, 105, 

10 , 

93, 24, 78 

, 0, 190, 88 

, 190, 110, 190 


195, 190, 

59, 

70, 70, 112 



10012 

DATA 143, 

103 

, 152, 107 

, 152, 107, 

150, 125, 

150, 


12 5, 140, 

134 

, 142, 116 

, 152, 107, 

705, 116, 

219, 


102 , 21?, 

102 

, 212, 97, 

219, 107, 209, 128, 

209, 


128, 19 5, 

141 

, 198, 177 

, 225, 186, 

198, 177, 

204, 


160, 204, 

160 

, 225, 171 

, 704, 160, 

217, 146, 

217, 


146, 225, 

150 





10014 

DATA 225, 

190 

, 225, 30, 

225, 30, 255, 30 



Sprite Data 


10100 

DATA 

0 , 0 

, 255, 4, 

14, 127, 177, 241, 255, 177, 


32, 

755, 

0 t ® 1 ® y 0 

, 0, 0, 274, 0, 2, 133, 194, 


254, 

248, 

240, 128, 

224, 0, 0, 0, 0 

10110 

DATA 

1 , 2 

, 4, 8, 21 

, 26, 29, 30, 31, 31, 31, 15, 


7, 3 

, 1, 

0, 128, 64 

, 32, 16, 8, 24, 40, 200, 136, 


136 , 

136, 

144, 160, 

192, 128, 0 

10120 

DATA 

0, 4 

, 66, 136, 

2, 64, 18, 47, 10, 165, 43, 


144, 

40, 

1, 64, 18, 

128, 16, 4, 32, 1, 72, 33, 146 


204, 

27, 

200, 97, 64, 9, 0, 32 

10130 

DATA 

255, 

255, 755, 

227, 221, 190, 190, 190, 190, 


190, 

221 , 

227, 255, 

255, 255, 255, 255, 255, 255, 


187, 

183, 

175, 159, 

175, 183, 187, 187, 187, 255, 


255, 

255, 

255 


10140 

DATA 

192, 

160, 198, 

170, 170, 198, 0, 0, 0, 0, 0, 


255, 

0 , 0 

, 0, 0, 0, 

0, 198, 170, 170, 166, 2, 2, 


10 , 

4, 0, 

255, 0, 0 

, 0, 0 
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ChexSum Table 


1 

= 0 

215 

= 2498 

840 

= 

6806 

10 

= 0 

220 

= 143 

850 

= 

2666 

11 

= 0 

300 

= 3084 

860 

= 

143 

12 

= 0 

305 

= 1131 

900 

= 

2359 

30 

= 719 

310 

= 868 

910 

= 

1851 

35 

= 3584 

315 

= 4179 

915 

= 

3931 

40 

= 7597 

320 

= 8579 

920 

= 

11264 

50 

= 5263 

330 

= 4059 

940 

= 

1481 

55 

= 12463 

340 

= 6853 

10000 

= 

13270 

60 

= 3996 

390 

= 143 

10002 

= 

16393 

65 

= 3997 

400 

= 6259 

10004 

= 

14772 

67 

= 3481 

410 

= 1595 

10006 

= 

14760 

70 

= 6037 

440 

= 143 

10008 

= 

12789 

80 

= 1496 

500 

= 8697 

10010 

= 

12062 

100 

= 1661 

550 

= 523 

10012 

= 

27062 

110 

= 362 

700 

= 64BS 

10014 

= 

1717 

120 

= 207 

710 

= 3653 

10100 

= 

7539 

190 

= 489 

800 

= 913 

10110 

= 

7438 

200 

= 3030 

805 

= 219B0 

10120 

= 

7419 

205 

= 2867 

820 

= 17120 

10130 

= 

11545 

210 

= 337 

830 

= 4999 

10140 

= 

6674 


Total= 345434 

Sprite Shapes 



PACKAGE 
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Tank Ambush 



classification: Simulation Game 

An ambush has been planned for a squadron of enemy tanks. 
Your tank is positioned on a cliff and you fire at the enemy on the 
right. Using keys ’0’ to ‘9’, give angle of projection of your bomb 
and shell (muzzle velocity 0 - 9). Then press the space bar to fire, 
or fire without keying in any numbers to send up a flare. 

The game ends when an enemy tank reaches the bottom of the 
cliff and you score 50 points for each hit. 

PROGRAMMING SUGGESTIONS 

Like some more tanks? Just create the additional sprites and alter 
the ‘Move Enemy Tanks’ routine to incorporate the extra tanks. 

The distance each tank is moved determines the difficulty of the 
game, so changing lines 216-22 would have some interesting 
effects. 
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PROGRAM 


Variables 

RN, SC 

Round number; score 

M$ 

Message 

NR 

New round? 

LT 

Last tank moved 

F 

Fire? 

A, SH 

Angle; shell 

T 

Time parameter 

XI, Yl 

Initial co-ordinates of bomb 

X, Y 

Calculated co-ordinates 
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Listing 


Initialise 


10 

REM RUN MACHINE CODE 




11 

REM SUPPORT PROGRAM 




12 

REM SEE APPENDICES 




15 

SCREEN 

1, 2 : KEY OFF : PRINT "aaaaUAaNaKaaAaMaBaUaSaH 


PRINT : FRINT : FRINT 

PRINT 



20 

FOR I 

= 1 TO 32 : READ Q 

AT = AT + 

CHRTI Q ) 

: 


NEXT : 

SPRITETI 0 ) = AT 

AT = *■ 



25 

FOR I 

= 1 TO 32 : READ Q 

AT ■= AT ♦ 

CHRTI Q ) 

: 


NEXT : 

SPRITETI 1 ) = AT 

SPRITETI 

2 ) = AT : 

SPRITETI 


3 1 = 

AT : SPRITETI 4 ) = 

AT : AT = 

11 II 


30 

FOR I 

= 1 TO 8 : READ Q : 

AT = AT + 

CHRTI Q ) 

l 


NEXT : 

SPRITETI 5 ) = AT 

AT = 



35 

FOR I 

= 1 TO 32 : READ 0 

AT = AT + 

CHRTI Q ) 

l 


NEXT : 

SPRITETI 6 ) = AT 




40 

DEFUSR 

= 60118' : FOKE 59998! , 1 



45 

INPUT 

"AreAYouAReadyAtOiStartAAAAAAAAAA(Press* 

•RETURN) 


1-; XT 





50 

CLS : 

COLOR 14, 1, 1 




55 

FOR I 

= 64?6 TO 6752 STEP 

32 : FOR J 

■ 0 TO 5 

3 


VPOKE 

I + J, 255 i NEXT : 

NEXT : FOR 

I = 6784 

TO 


6815 : 

VPOKE I, 23 : NEXT 




60 

FOR I 

= 1 TO 21 i PRINT : 

NEXT : PRINT "AAAA*Angl8 aaaaa 


**Shell": PRINT CHRTI 11 

) j : MT = 



GOSUB 

1000 




65 

FOR I 

= 6144 TO 6431 : IF 

RNDI 1 ) < 

.07 THEN 

V7 


POKE I 

, 46 




67 

NEXT : 

FOR I = 368 TO 375 

: VPOKE I, 

0 : NEXT 

: 


VPOKE 369, 1 


New Round 


70 PUT SPRITE 0, ( 2, 74 ) , I 0 : LT = 1 : F = 0 : 

K1 = 35 * ( TIME / 10 - INTI TIME / 10 > > + 60 : 
PUT SPRITE 1, ( 235, K1 ) , 1 : PUT SPRITE 2, I 
255, K1 + 20 ) , I : PUT SPRITE 3, ( 235, K1 + 40 ) 
, 1 : PUT SPRITE 4, I 255, K1 + 55 ) , I 
75 NR = 0 : SPRITE ON : ON SPRITE GOSUB 300 


Control 


80 IF F = 0 THEN 95 
B5 GOSUB 150 
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95 GOSUB 200 : IF NR = 1 THEN RN = RN + 1 : GOTO 70 

100 X* = INKEY* : IF X* = "" OR F <> 0 THEN S0 

105 IT X* = "*" THEN M$ = "FLARE***********": GOSUB 

1000 : F = 2 : A = .628 s SH = 9 : GOSUB 150 : GOTO80 
110 IF X* < "0" OR X* > "9" THEN 100 

115 K1 = VAL( X* ) : VPOKE 6829, KI + 48 

117 X* = INKEY* : IF X* = THEN GOSUB 200 : GOTD 117 
120 IF X* < "0" OR X$ ) "9” THEN 117 

125 A = 10 * Kl + VAL( X* ) : VPOKE 6830, VAL< X* ) 

+ 48 : A = A * .01745 

130 X* = INKEY* : IF X* = "* THEN GOSUB 200 : GOTO 130 

135 IF X* < "0" OR X* > “9" THEN 130 

140 SH = VAL( X* ) : VPOKE 6841, SH + 48 

145 F = 0 : X* = INKEY* : IF X* = "" THEN GOSUB 200 : 

GOTO 145 

147 IF X* = "*" THEN M* = "FIRE************": GOSUB 
1000 : F = 1 : GOSUB 150 : GOTO 80 

148 GOTO 145 




Move Bomb 

150 

T = T + 3 : XI = SH t C0S( A ) / 2.1 : YI = SH « 


SIN( A ) / 2.1 


152 

IF T <> 3 AND T <> 

0 THEN 155 

153 

IF F = 0 THEN RETURN ELSE FUT SPRITE 5, ( 20, 55 ) 


, 15 : PLAY "m8051 1 64n30n20" 

155 

X = INTI 20 + T * 

XI ) 

160 

Y = INTI 55 - T » 

Y I ♦ . 049 * T # T ) 

165 

IF X < 8 OR X > 247 OR Y > 154 THEN GOSUB 400 : 


RETURN 


170 

IF Y < 8 THEN PUT 

SPRITE 5, I 100, 210 ) ELSE PUT 


SPRITE 5, I X, Y ) 

, 15 

175 

IF F <> 2 THEN 185 


180 

IF T > = 30 THEN 250 

185 

RETURN 




Move Enemy Tanks 

200 

SPRITE OFF : LT=LT +1 : IF LT = 5 THEN LT = 1 

210 

IF VPEEKI 6912 + LT * 4 ) > 200 THEN RETURN 

215 

POKE 59997', LT : ON RN GOTO 216, 217. 217. 219. 


219, 221, 222 


216 

K = 1 : GOTO 225 


217 

K = 2 : GOTO 225 


219 

K = 3 : GOTO 225 


221 

K = 4 : GOTO 225 

* 

222 

K. = 5 


225 

POKE 59999 ! , K : D 

= USRI D ) 
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230 IF VPEEK( 6913 + LT * 4 ) < 41 THEN 600 
235 SPRITE ON : RETURN 


Blow Flare 


250 

PUT SPRITE 

5, ( 100, 

210 ) : 

FOR I = 1 TO 5 : 

COLOR 


1, 15, 15 : 

FOR J = 1 

TO 70 : 

; NEXT : COLOR 14, 

, 1 , 


1 : FOR J. = 

1 TO 70 : 

NEXT : 

NEXT 


255 

Mt = "Ready 


a": GOSUB 1000 : F = 0 i . 

, T 


= 0 : VPOKE 

6829, 32 

: VPOKE 

6830, 32 : VPOKE 

6841 ,32 

270 

RETURN 






Blow Enemy Tank 


300 IF F <> 1 THEN RETURN ELSE VPOKE 6934, 24 : COLOR 
1, 15, 15 : PLAY "m13000sl18n40n35n40n35”s FOR II 
= 1 TO 200 : NEXT : COLOR 14, 1, 1 
305 12 = 0 : FOR II = 1 TO 4 : IXD = VPEEK! 6913 + II 

* 4 ) - VPEEK( 6933 ) : I YD = VPEEK( 6912 + II * 

4 ) - VPEEK( 6932 ) : IF IXD < 0 THEN IXD = - IXD 

310 IF I YD < 0 THEN I YD = - I YD 

315 IF VPEEK! 6933 ) + 6 > = VPEEK! 6913 + II * 4 ) 

AND IXD < = 16 AND VPEEK! 6932 ) + 6 > = VPEEK! 

6912 + II » 4 ) AND I YD < = 14 THEN 12 = II 

320 NEXT : VPOKE 6<>14 + 4 ♦ 12, 24 : FOR II = 1 TO 200 : 

NEXT 

325 SC = SC + 50 : VPOKE 6914 +4* 12, 4*12: VPOKE 
6934, 20 : PUT SPRITE 5, ( 100, 210 ) : PUT SPRITE 
12, ( 12 » 25 - 25, 210 ): F = 0 : T = 0 : Mi = 
“ReadyAAAAAAAAAAa": GOSUB 1000 
330 IF VPEEK! 6916 ) > 200 AND VPEEK! 6920 ) > 200 AND 

VPEEK! 6924 ) > 200 AND VPEEK! 6928 1 > 200 THEN NR = 1 
350 VPOKE 6829, 32 : VPOKE 6830, 32 : VPOKE 6841, 32 : 
RETURN 


Blow Bomb 


400 VPOKE 6934, 24:T=0:F=0:M$= "Ready******* 
GOSUB 1000 

405 PLAY "m80164sSn10n12": VPOKE 6829, 32 : VPOKE 6830, 
32 : VPOKE 6841, 32 : FOR I = I TO 400 : NEXT 
410 VPOKE 6934, 20 s PUT SPRITE 5, ( 100, 210 ) 

450 RETURN 
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Game Over 


600 

SCREEN 

1 : PRINT 

"aaaaaaaaaGAMEaOVER": 

PRINT 

: PRINT : 


PRINT 

: PRINT 




610 

PRINT 

"YOURaSCOREaWASa"! SC : PRINT 

* 


620 

PRINT 

"YOUaSURVIVEDa"! RN ; "aWAVESa”: 

PRINT 

"OFaTANKS" 

630 

END 








Update Score/Message 


1000 FOR I = 1 TO 23 
; "Score:"j SC ; 


10000 

DATA 0, 

0, 63, 6 3 , 63 

, 63, 127 

, «, 

127, 

200, 

135, 


200, 127 

, 0, 0 , 0, 1, 

7, 156, 

240, 

192, 

248, 

254, 


0, 254, 

19, 225, 19, 

254, 0, 0 

, « 




10010 

DATA 0, 

0, 255, 1, 7, 

31, 127, 

«, 

127, 

1-99, 

146, 


1??, 127 

, 0 y 0 , 0 , 0 , 

64, 248, 

248 

, 248 

, 252 

, 254 


0, 254, 

227, 73, 227, 

254, 0, 

0, 0 




10020 

DATA 0, 

0, 24, 60, 60 

, 24, 0, 

0 




10030 

DATA 128 

, 4, 64, 0, 144, 5, 40 

, 134, 67 

, 177 

, 68, 


It, 68, 

0, 128, 16, 4 

, 0 , 129, 

16, 

6, 129, 146, 


34, 25, 

162, 16, 65, 
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: PRINT : NEXT : PRINT Mt j T AB ( 17) 
CHR$( 11 ) ; : RETURN 


Sprite Data 


ChexSum Table 


10 

= 

0 

11 

= 

0 

12 

= 

0 

15 

= 

3727 

20 

= 

3995 

25 

= 

6939 

30 

= 

4012 

35 

= 

3484 

40 

= 

1767 

45 

= 

4749 

50 

= 

578 

55 

= 

5731 

60 

= 

6936 

65 

= 

2725 

67 

= 

2349 

70 

= 

13277 

75 

= 

1473 


80 

= 

809 

85 

= 

310 

95 

= 

2685 

100 

= 

2467 

105 

= 

6131 

110 

= 

1 B 1 4 

115 

= 

2004 

117 

= 

2501 

120 

= 

1814 

125 

= 

4264 

130 

= 

2535 

135 

= 

1844 

140 

= 

2003 

145 

= 

2984 

147 

= 

4492 

148 

= 

538 

150 

= 

4921 


152 

= 

I960 

153 

= 

3437 

155 

= 

1605 

160 

= 

2787 

165 

= 

2905 

170 

= 

2888 

175 

= 

1144 

180 

= 

1246 

105 

= 

143 

200 

= 

2651 

210 

= 

2250 

215 

= 

4062 

216 

= 

1025 

217 

= 

1025 

219 

= 

1029 

221 

= 

1029 

222 

= 

337 

225 

= 

1544 
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230 

= 

2093 

320 

235 

= 

551 

325 

250 

= 

5620 

330 

255 

= 

5049 

350 

270 

= 

143 

400 

300 

= 

6683 

405 

305 

= 

9158 

410 

310 

= 

1848 

450 

315 

= 

9139 

600 


2518 

610 

= 1819 

10530 

620 

= 3353 

6188 

630 

= 129 

1875 

1000 

= 3927 

3417 

10000 

= 7777 

4720 

10010 

= 7899 

1424 

10020 

= 1158 

143 

10030 

= 7606 

2537 

Total= 

246329 


Sprite Shapes 



PLAYER'S TANK 




EXPLOSION 



BOMB 
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Concentration 



classification: Memory Game 

Challenge your opponent to a tough brain-battle! You select two 
cards from 18 and, if they have the same number on their opposite 
sides, you have a match. Otherwise, they are turned face-down 
again and a chance is given to your opponent. 

May the best memory win! 

PROGRAMMING SUGGESTIONS 

For an easier game, use a smaller range of numbers on the backs 
of the cards. 

For a harder game, instead of having two sets of numbers from 
1 to 9, have three sets of numbers from 1 to 6 and make each 
player choose three cards. 

The display would look great with some more colouring for the 
cards! 
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PROGRAM 

Variables 

P$(1), P$(2) Players' names 

S(1), S(2) Scores 

C(l, J) Card numbers; visible flags 

CP Current player 

CF Card to flip 

LC Last card 
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Listing 


Initialise 


10 SCREEN 1 : COLOR 15, 4, 4 i KEY OFF : PRINT TflB< 8) 
"CONCENTRATION" 

15 DIM C ( 18, 2 ) 

20 FOR I = 1072 TO 1143 : READ Q ! VPOKE I, Q t NEXT : 

FOR I = 1152 TO 1223 : READ Q : VPOKE 1,0s NEXT i 

VPOKE 8 208, 164 : VPOKE 8209, 164 t VPOKE 8210, 

228 : VPOKE 8211, 228 

25 FOR I = 1 TO 5 ! PRINT ; NEXT : PRINT "aaEnteraNameaFor 
aPlayeral:" 

35 X* = INKEY* : IF X* = "" THEN D = RND( 1 ) ! GOTO 

35 ELSE IF X* = CHR*( 13 ) THEN P* I I ) = "FruitaCake"t 

GOTO 50 ELSE P* I 1 ) = X* 

40 L = LEN( P* ( 1 ) ) : BEEP : VPOKE 6403 + L, ASCI X*) 

: IF L ) 15 THEN 50 

45 X* = INKEY* : IF X* = ”* THEN D = RND( 1 ) s GOTO 

45 ELSE IF X* = CHR*< 13 ) THEN 50 ELSE P* ( 1 ) 

= P* ( 1 ) + X* : GOTO 40 

50 FOR I = 1 TO 5 : PRINT : NEXT : PRINT "**EnteraName*for 
aPlayera2" 

60 X* = INKEY* : IF X* = THEN 60 ELSE IF X* = CHR*( 

13 ) THEN P* I 2 ) = "NutaCase's GOTO 75 ELSE P* 

I 2 ) = X* 

65 L = LENI P* ( 2 ) ) ! BEEP i VPOKE 6595 ♦ L, ASCI X*) 

: IF L > 15 THEN 75 

70 X* = INKEY* : IF X* = ** THEN 70 ELSE IF X* = CHR*I 
13 ) THEN 75 ELSE P* I 2 I = P* I 2 ) ♦ X* s GOTO 65 

75 FOR I = 1 TO 5 : PRINT : NEXT : PRINT "OKa’l P* 

II); "a - "! PRINT "youacanaqoaFirst.aHitaaakey" 

80 IF INKEY* = "■ THEN 80 


Set Up Screen 


100 

CLS : FOR CF = 

1 TO 

18 : GOSUB 

400 i 

NEXT 

140 

CP = 1 : GOSUB 

6 00 

: I = 0 : J 

= 0 


150 

1=1+1: IF 

J = 2 THEN 200 

I = 

10 THEN I = 

1 i J 

= J 

155 

K * INTI RNDI 1 

) * 

18 + 1 ) : 

IF C 

I K, 


THEN C I K, 1 ) 

= I 

ELSE 155 



160 

GOTO 150 
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Editor 


200 PRINT CHR*< II ) j : FOR I = I TO 19 i PRINT s NEXT i 
PRINT "Choose*the*first*card." 

205 X* = INKEY* : IF X* = "" OR( ( X* < "ft” OR X* > 

"R”) AND( X* < "a" OR X* > "r"> ) THEN 205 

210 IF X* > "R" THEN CF = ASCI X* ) - 96 ELSE CF * ASCI 
X* ) - 64 

215 IF C I CF, 2 ) = I THEN 205 ELSE GOSUB 300 s PRINT 
"OK"! LC = CF 

220 PRINT "Second*card:a” 

225 X* = INKEY* : IF X* = ■■ OR I I X* < "A” OR X* > 

"R") AND! X* < "a” OR X* > "r") ) THEN 225 

230 IF X* > "R* THEN I = ASCI X* ) - 96 ELSE I = ASCI 
X* ) - 64 

235 IF I = CF THEN 225 ELSE CF = I : IF C I CF, 2 ) 

= 1 THEN 225 ELSE GOSUB 300 

240 IF C I CF, I ) = C I LC, 1 ) THEN GOSUB 500 i GOTO250 

245 PLAY " 1 4m61680sl0n2": PRINT "NO»HATCH": FOR T = 

I TO 2000 : NEXT : GOSUB 400 : CF = LC : 60SUB 400 
250 IF CP = I THEN CP = 2 ELSE CP = I 

255 PRINT CHR*I 11 ) ; : FOR I = I TO 19 i PRINT i NEXT i 

FOR I = I TO 3 i PRINT "aaaaaaaaaaaaaaaaaaaaaaaaaaaa"’. 

NEXT i PRINT "aaaaaaaaaaaa" j 

260 GOSUB 600 : GOTO 200 


Flip Card 


300 PLAY n s8mI000120n20r30n35"! K = INTI I CF - 1 ) 

/ 6 ) + 1 : ON K GOTO 305, 310, 315 
305 AD = 6172 + 5 » CF i GOTO 320 

310 AD = 6332 + 5 * I CF - 6 > i GOTO 320 

315 AD = 6492 + 5 * I CF - 12 > 

320 VPOKE AD, 134 s VPOKE AD + 1, 130 s VPOKE AD ♦ 2, 

138 i VPOKE AD + 3, 138 ! VPOKE AD + 4, 136 i VPOKE 
AD ♦ 32, 140 ! VPOKE AD + 64, 140 i VPOKE AD + 96, 
140 : VPOKE AD + 128, 135 : VPOKE AD + 129, 139 i 
VPOKE AD ♦ 130, 139 : VPOKE AD + 131, 139 : VPOKE 
AD + 132, 137 : VPOKE AD + 100, 141 i VPOKE AD + 

68, 141 i VPOKE AD + 36, 141 
325 FOR I = AD ♦ 33 TO AD + 97 STEP 32 : FOR J = 0 TO 
2 : VPOKE I ♦ J, 142 ! NEXT i NEXT : VPOKE AD + 

66, C I CF, 1 ) + 48 
390 RETURN 
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Reset Card 

400 

PLAY "s8150ml000n35n20"B K = INTI ( 

CF - 1 ) / 6 ) 


+ 1 : ON K GOTO 

405, 410, 415 


405 

AD = 6172 + 5 * 

CF : GOTO 420 


410 

AD = 6332 + 5 * 

( 

CF - 6 ) : GOTO 420 

415 

AD = 6492 + 5 * 

( 

CF - 12 ) 


420 

VPOKE AD, 144 : 

VPOKE AD + 1, 148 : 

VPOKE AD + 2, 


148 : VPOKE AD 

+ 3, 148 s VPOKE AD + 

4, 146 s VPOKE 


AD ♦ 32, 150 : 

VPOKE AD + 64, 150 : 

VPOKE AD + 96, 


150 s VPOKE AD 

+ 128, 145 : VPOKE AD 

+ 129, 149 s 


VPOKE AD + 130, 

149 s VPOKE AD + ,131 

, 149 : VPOKE 


AD + 132, 147 : 

VPOKE AD + 100, 151 

i VPOKE AD + 


68, 151 : VPOKE 

AD ♦ 36, 151 


425 

FOR I = AD + 33 

TO AD ♦ 97 STEP 32 s 

FOR J = 0 TO 


2 s VPOKE I, + J 

, 152 : NEXT s NEXT s 

VPOKE AD + 


66, 64 ♦ CF 




490 

RETURN 







Match 

500 

S ( CP ) = S t 

CP 

) + 1 


510 

C I LC, 2 ) = 1 

1 

C I CF, 2 ) = 1 


520 

K1 = 132 : PLAY 

"«2000110s8n35n40"s 

GOSUB 580 : 


K1 = 133 s PLAY 

"110s8«1000n30n45"s 

GOSUB 580 s 


K1 = 32 s GOSUB 

580 


530 

IF S ( I ) + S 

I 

) = 9 THEN 900 


550 

RETURN 




580 

FOR I = 6144 TO 

6175 : VPOKE I, K1 : 

NEXT s FOR 


I = 6176 TO 6656 STEP 32 s VPOKE I, 

K! s FOR J = 


1 TO 50 : NEXT 

: PLAY "58164111500025'' 

: VPOKE I + 


31, K1 : NEXT : 

FOR I = 6656 TO 6687 

s VPOKE I, 


K1 s NEXT 




585 

RETURN 





4 


Update Name/Score 


600 PRINT CHR*< II ) ; : FOR I = I TO 18 : PRINT : NEXT t 
PRINT P$ ( CP ) TAB( 18 ) "Scores'; S ( CP ) 

690 RETURN 
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Game Over 


900 CLS s PRINT "Conqratulations*to*the*winnert-»": 

IF S ( 1 ) > S ( 2 ) THEN PRINT P* < 1 1 : PRINT 
"with*a*scoreioT**"j S ( 1 ) ELSE PRINT P* ( 2 ) i 
PRINT "HithaaiscoreaO'Faa"; S ( 2 ) 

910 PLAY "vl0o414al8gel8egl2flla” , "o314al8egl8gel2411f" 

, "o514cl8gel8gel2flie" 

920 FOR I = 1 TO 3800 : NEXT s PRINT s PRINT : PRINT 
"BadaLuck,*"; : IF S ( I ) < S ( 2 ) THEN PRINT 
P* < 1 ) : PRINT "Your*score*Has**"j S ( 1 ) ELSE 
PRINT P$ ( 2 ) ! PRINT "Yourascore*wasa"| S t 2 ) 

930 PLAY "Vl5140s8ni60000n2r40nlr30n4r20nlr30n2rl0n5rl0n4rl0 
n3r 2013nl” 

990 END 


Character Data 


10000 

DATA 

0, 0, 0, 0, 10, 5, 10, 5 

10002 

DATA 

J 01 5 f 101 5 | 01 01 01 t) 

10004 

DATA 

0, 0, 0, 0, 160, 64, 160, 64 

10006 

DATA 

160, 64, 160, 64, 0, 0, 0, 0 

10008 

DATA 

0, 0, 0, 0, 170, 85, 170, 85 

10010 

DATA 

170, 85, 170, 85, 0, 0, 0, 0 

10012 

DATA 

10, 5, 10, 5, 10, 5, 10, 5 


10014 DATA 160, 64, 160, 64, 160, 64, 160, 64 
10016 DATA 170, 85, 170, 85, 170, 85, 170, 85 


10018 

DATA 

0, 0 

, 0, 0, 15, 15, 

15, -15 


10020 

DATA 

15, 

15, 15, 15, 0, 0 

, 0, 0 


10022 

DATA 

0, 0 

, 0, 0, 740, 240 

l, 240, 240 


10024 

DATA 

240, 

240, 240, 240, 

0, 0, 0, 0 


10026 

DATA 

0, 0 

, 0, 0, 255, 255 

, 255, 255 


10028 

DATA 

255, 

255, 255, 255, 

0, 0, 0, 0 


10030 

DATA 

15, 

15, 15, 15, 15, 

15, 15, 15 


10032 

DATA 

240, 

240, 240, 240, 

240, 240, 240, 

240 

10034 

DATA 

255, 

255, 255, 255, 

255, 255, 255, 

255 


127 





ChexSum Tables 


IB 

= 

2979 

240 

= 

2602 

600 

3 

4437 

15 

= 

393 

245 

3 

5543 

690 

= 

143 

20 

= 

7430 

250 

= 

1860 

900 

3 

12566 

25 

= 

3905 

255 

= 

6476 

910 

= 

6550 

35 

= 

8295 

260 

= 

914 

920 

= 

11303 

40 

= 

3774 

300 

= 

5209 

930 

= 

4938 

45 

= 

7044 

305 

* 

1698 

990 

= 

129 

50 

= 

3838 

310 

= 

2272 

10000 

3 

1025 

60 

3 

6378 

315 

= 

1591 

10002 

3 

1017 

65 

s 

4023 

320 

= 

21802 

10004 

= 

1264 

70 

= 

5569 

325 

= 

5973 

10006 

3 

1272 

75 

= 

5303 

390 

= 

143 

10008 

3 

1272 

80 

= 

1027 

400 

= 

5335 

10010 

= 

1280 

100 

= 

1603 

405 

= 

1798 

10012 

3 

1150 

140 

= 

1544 

410 

= 

2368 

10014 

3 

162B 

150 

= 

3623 

415 

= 

1591 

10016 

3 

1640 

155 

= 

4245 

420 

S 

21617 

10018 

3 

1134 

160 

= 

539 

425 

3 

5706 

10020 

= 

1150 

200 

= 

4508 

490 

S 

143 

10022 

= 

1372 

205 

= 

5522 

500 

3 

1179 

10024 

3 

1404 

210 

= 

4092 

510 

= 

1371 

10026 

3 

1384 

215 

= 

2940 

520 

3 

6390 

10028 

3 

1416 

220 

= 

1445 

530 

3 

1444 

10030 

3 

1404 

225 

3 

5510 

550 

S 

143 

10032 

3 

1864 

230 

= 

3900 

580 

s 

9830 

10034 

3 

1BBB 

235 

— 

3790 

585 

= 

143 

T otal = 

2B3010 
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Stunt Man 



classification: Simulation Game 

A team of daredevils is attempting a daring leap from an 
aeroplane onto a trampoline. Press the <SPACE> bar to make a 
daredevil jump, but watch the wind speed and the height! 

You lose points for hitting the ground or the picket fence and 
your man dies if he lands on the high-voltage wires. 


PROGRAMMING SUGGESTIONS 

You can alter the effect of the wind on the man’s flight path and 
speed by changing the use of variables WS and T in line 310. 
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PROGRAM 


Variables 

LD 

Level of difficulty 

WS 

Wind Speed 

T 

Time parameter 

F 

Flying? 

NW, NM 

Number of wounds; number of men 

M$ 

Message 

X, Y 

Man's co-ordinates 

RN, SC 

Round number; score 

XI, Yl 

Initial co-ordinates 
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Listing 




Initialise 

1 

REM RUN MACHINE CODE 





2 

REM SUPPORT PROGRAM 





3 

REM SEE APPENDICES 






IB 

SCREEN 1, 2 : KEY 

OFF : CLS i 

PRINT " 

AAA 

A A A A A 

aaSTUNTMAN 


PRINT : PRINT : 

PRINT 





15 

FOR I = 1 TO 8 : READ Q : At 

= At + CHRtl Q ) 

: 


NEXT : SPRITEt( 0 

4* 

<r 

<r 

ii 

_ h n 




20 

FOR I = 1 TO 32 : 

READ Q : At 

II 

2> 

4* 

4- 

CHRtl Q 

) : 


NEXT : SPRITEt 1 

) = At 





25 

FOR I = 1088 TO 1095 t READ Q 

! VPOKE 

I, 

Q : 

NEXT ! 


FOR I = 1152 TO 1191 : READ Q 

: VPOKE 

I, 

Q : 

NEXT : 


FOR I = 1216 TO 1223 : READ Q 

: VPOKE 

I, 

Q : 

NEXT : 


FOR I = 1280 TO 1287 : READ Q 

! VPOKE 

I. 

Q : 

NEXT 

30 

DEFUSR = 60118! : 

POKE 59997! 

, 1 ! POKE 

59998 

1 

40 

ON STRIG GOSUB 900 






50 

NM = 3 : SC = 100 






60 

PRINT "LevelAofADifficultyAll 

-4)?*; 




65 

Kt = INKEYt ! IF Kt = "" THEN 

65 




70 

LD = VAL ( Kt ) i IF LD < 1 OR 

LD > 4 

THEN 65 

ELSE 


PRINT LD 






75 

POKE 59999 ! , LD 






90 

PRINT : PRINT ! PRINT : PRINT 

: PRINT 

s 

PRINT 

"aaaaaHU 


AanyAKeyAtcuStart" 






95 

IF INKEYt = "" THEN 95 







New Round 

100 

STRIGI 0 ) ON : CLS : COLOR 1 

, 5, 5 




105 

IF NM = 0 THEN 600 






110 

FOR I = 6816 TO 6847 : VPOKE 

I, 23 : 

NEXT 


115 

PRINT ! PRINT "aaaaaa" CHRtl 

160 ) "a 

AAA 


. II 


CHRtl 160 ) : PRINT : PRINT 

: PRINT 

" k A 


1." 


CHRtl 160 ) : PRINT “a” CHRtl 160 ) 

n i i ii 

A A A A • • 

: PRINT 


" a a a a a 11 !": PRINT 

" A A A A \ • '• • " 





120 

PRINT " a a a ' 1 ! I”: FRINT ''aa! 1 ! 

1 ": PRINT " 

Allll 

i n , 


PRINT "till!": PRINT " ! ! 1 1 a a 

A A A A " CHRtl 

146 

) CHRtl 


146 ) CHRtl 146 ) CHRtl 146 ) CHRtl 146 ) ’ni" 
CHRt( 148 I CHRtl 148 ) CHRt( 148 ) CHRtl 148 ) 


CHRt( 148 ) 

125 PRINT "lllniiu'' CHRt ( 144 ) CHRtl 136 ) CHRtl 136) 
CHRtl 136 ) CHRtl 136 ) CHRtl 136 ) CHRtl 145 ) 

127 PRINT "aa" CHRtl 147 ) CHRtl 148 ) CHRtl 147 ) CHRtl 
147 ) CHRtl 147 ) CHRtl 148 ) : FRINT "I'.Iaaaaa" 


131 
















CHRt I 144 ) CHRt I 136 ) CHRt! 136 ) CHRt I 136 ) 

CHRt! 152 ) CHRt( 136 ) CHRt( 136 ) CHRt( 136 ) 

CHRt( 145 ) i 

129 PRINT "**” CHRt ( 147 ) CHRt( 148 ) " 44" CHRt( 14 7 ) 
CHRt ( 148 ) : PRINT "! Iiuii" CHRt ( 144 ) ; : FOR 

I = 1 TO 9 : PRINT CHRt( 136 ) ; : NEXT : PRINT 
CHRt( 14 5 ) "44" CHRt ( 147 ) CHRt( 148 ) 

130 PRINT “ I 44 ****!!!1!!!!i!il**” CHRt( 147 ) CHRt ( 147) 

! : FOR I = 1 TO 5 : PRINT CHRt( 148 ) j : NEXT : 

PRINT ! PRINT "4*4****:*!44*44!*11**" ; : FOR I 

= 1 TO 7 : PRINT CHRt( 147 ) j : NEXT : PRINT 
135 PRINT "4444444144444444441 4444"1 : FOR I = 1 TO 

5 : PRINT CHRt( 147 ) ; : NEXT : PRINT : PRINT 
" 444 **** 1444 * 44444 * 1 ": PRINT : PRINT : PRINT : 

PRINT " 1 1 1 1 1 >” ; CHRt ( 11 ) ; 

140 WS=5:F=0:T=0:NW=0: GOSUB 1000 

150 PUT SPRITE 1, ( 255, 40 > , 1 

160 VPOKE 8194, 229 s VPOKE 8209, 165 : VPOKE 8210, 

229 : VPOKE 8211, 149 : VPOKE 8212, 197 




Control 

200 

D = USR< D ) 




205 

IF VPEEK ( 6917 ) > 

I 255 - LD ) 

THEN VPOKE 6916, 



INTI RND( 1 1 * 85 

) : SC = SC - 

10 ■ GOSUB 1000 


210 

IF F = 0 THEN 200 




220 

GOSUB 300 




230 

IF X < 5 OR X > 250 THEN 550 



240 

IF Y < 105 THEN 200 



250 

IF X > 85 AND X < 

140 THEN GOSUB 

350 : GOTO 200 


260 

IF X > 160 AND X < 

210 THEN GOSUB 450 : GOTO 200 


270 

IF X < 30 THEN 400 




280 

GOSUB 500 : GOTO 200 





Move Man 

300 

XV = 3 + LD / 3 : 

M = 50 



310 

T = T t 1 : X = WS 

» T * T / fl - 

XV » T + XI : Y 



= 4.9 * T * T / 14 

+ Y I 



320 

X = INTI X ) : Y = 

INTI Y ) : At 

= "n"+ STRtI N ) 



: IF T / 3 = INTI 

T / 3 ) THEN PLAY " «650861 5s1 Ox at:": 



N = N - 1 




325 

IF X > 255 THEN X 

= 255 



327 

IF X < 0 THEN X = 

0 



330 

FUT SPRITE 0, I X, 

Y ) , 10 



340 

RETURN 
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350 


Man Hits Target 


IF X > 185 AND X < 117 THEN SC = SC ♦ 200 : M* = 
"SUPERB!!!!! 1 ** 1 “: PLAY ”18n5018n4512n50": GOTO 360 
355 SC = SC + 100 : M$ = "GOOD*JUMP***" 

360 NS = INK RND( I ) * 10 ) : GOSUB 1000 : GOSUB 1300 : 

F = 0 : T = 0 
370 RETURN 


400 GOSUB 1200 : CLS s 
NM = NM ->1 : PUT 
1, ( 255, 200 ) 

410 FOR TM = 1 TO 3000 : NEXT : SC = SC - 100 : GOTO 100 


Man Hits Fence 


450 

M* = "HIT * THE*FENCE’ 

!": SC = SC - 

50 : 

PLAY "154*1200sl 


0n74r20n74" 






460 

NS = I NT( RND ( 1 ) 

ft 

10 ) : GOSUB 

1000 

: F = 0 

I 


T = 0 : NW = NH * 

1 

: GOSUB 1300 




470 

IF NW > 2 THEN 700 






480 

RETURN 








Man Hits Ground 

500 

Ml = "OUCH-TRY*AGAIN 

1 " 1 SC = SC - 

30 : 

NN = NN 

+ 


1 : PLAY ”12n7" 






510 

NS = I NT( RND( 1 ) 
F * 0 : T = 0 

ft 

10 ) : GOSUB 

1000 

: GOSUB 

1300 s 

520 

IF NW > 2 THEN 700 






530 

RETURN 








Man Out Side 


550 GOSUB 1200 : CLS : PRINT "STUNT*MAN*DROWNED*IN*SWAMP*-": 

PRINT "A*LONG*NAY*FROM*THE*TARGET! 1" 

560 PUT SPRITE 0, ( 200, 200 ) : PUT SPRITE 1, ( 200, 

200 ) : FOR TM = 1 TO 3000 : NEXT 
570 NM = NM - 1 : GOTO 100 


Man Hits Wires 


PRINT “***STUNT*MAN*ELECTROCUTED!! 
SPRITE 0, ( 100, 200 ) : PUT SPRITE 
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Game Over 


600 CLS : PRINT " aaaaaaaaaGAMEaOVER" : PRINT s PRINT : 
PRINT 

610 PRINT "aaYOURaSCOREaWAS"; SC 

620 PUT SPRITE 1, ( 100, 200 ) t PUT SPRITE 0, ( 100, 
200 ) 

630 END 


Man Out of Action 


700 F = 1 : CLS : PRINT "STUNT*MAN*OUTaOFaACTIONa - ": 
PRINT "TODaMANYaACCIDENTS” 

710 PUT SPRITE 0, ( 700, 200 ) : PUT SPRITE 1, ( 200, 
200 1 : NM = NM - 1 : FOR TM = 1 TO 3000 ! NEXT 
720 GOTO 100 


Space Bar Pressed 


900 IF F = 1 THEN RETURN 

910 K! = VPEEK( 6916 1 : K2 = VPEEK( 6917 ) t PUT SPRITE 

0, ( K2, K1 > , 10 : F = 1 : T = 0 : M* = "GERONIHOOO! ! 
A A A "! GOSUB 1300 

920 YI = K1 : XI = K2 : N = 50 : RETURN 


Update Score 


1000 FOR 1 = 1 TO 22 : PRINT : NEXT t PRINT "HindASpeed"} 
WS j TAB t 13 ) j "TotalAScore"; SC j CHR*< 11 ) } 
1010 FOR J = 6895 TO 6910 : VPOKE J, 32': NEXT 
1020 RETURN 


Man Dead 


1200 CLS : PLAY " 19ml000sl4n33n33n33n33n33n33n33n33n33n33": 
FOR I = 15 TO 1 STEP - 1 : FOR T = 1 TO 100 : NEXT : 
COLOR 15, I, I : NEXT 
1250 RETURN 


Message 


1300 PRINT CHRtI 11 1 ; : FOR I = 1 TO 23- : PRINT : NEXT : 
FOR I = 1 TO 13 : PRINT CHRtt 28 ) j : NEXT 
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1310 


PRINT M* ; CHR$( 11 ) ; 


RETURN 


Sprite Data 


10000 DATA 153, 255, *0, 24, 60, 36, 102, 195 
10010 DATA 0, 0, 0, 112, 120, 60, 30, 127, 255, 255, 127, 
1, 0, 0, 0, 0, 0, 0, 0, 4, 14, 30, 62, 254, 255, 
255, 254, 254, 240, 120, 60, 28 


Character Data 


10100 

DATA 

170 

W5 

CD 

, 170 

1, 85, 170, 85, 170, 85 

10102 

DATA 

I, 

2, «, 

, i», 

17, 34, 85, 138 

10104 

DATA 

178 

, 64, 

, J2, 

80, 136, 68, 170, 81 

10106 

DATA 

0 , 

0, 0, 

, 0, 

0, 0, 255, 36 

10106 

DATA 

56 , 

56, 

56 , 

56, 56, 56, 56, 56 

10110 

DATA 

16, 

56, 

56, 

56, 56, 56, 56, 56 

10112 

DATA 


60, 

126, 

126, 126, 60, 24, 0 

10114 

DATA 

16, 

56, 

84, 

186, 84, 186, 84, 16 
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ChexSum Table 


1 

Z 

0 

205 

a 

5451 

550 

a 

6423 

2 

= 

0 

210 

a 

921 

560 

= 

3636 

3 

= 

0 

220 

a 

207 

570 

a 

1392 

18 

Z 

3283 

230 

a 

1634 

600 

= 

2207 

15 

= 

1011 

240 

a 

1043 

610 

= 

1645 

20 

= 

3183 

250 

a 

2529 

620 

= 

2042 

25 

= 

9710 

260 

a 

2797 

630 

= 

129 

30 

Z 

2571 

270 

a 

916 

700 

a 

5121 

40 

= 

861 

280 

a 

1069 

710 

= 

4 739 

50 

= 

1002 

300 

a 

1562 

720 

a 

489 

60 

= 

2670 

310 

a 

5718 

900 

= 

B35 

65 

Z 

1572 

320 

a 

7813 

910 

= 

6864 

70 

= 

3287 

325 

a 

1564 

920 

= 

1800 

75 

Z 

855 

327 

a 

1074 

1000 

= 

5591 

90 

= 

3579 

330 

a 

832 

1010 

= 

1883 

95 

9 

1034 

340 

a 

143 

1020 

= 

143 

100 

e 

1329 

350 

a 

6462 

1200 

a 

7838 

105 

9 

892 

355 

a 

2357 

1250 

a 

143 

110 

9 

1768 

360 

= 

3386 

1300 

= 

3966 

115 

a 

11684 

370 

a 

143 

1310 

= 

1111 

120 

= 

15549 

400 

= 

6920 

10000 

= 

1630 

125 

z 

6094 

410 

z 

2884 

10010 

a 

7656 

127 

a 

1 4521 

450 

= 

4400 

10100 

= 

1640 

129 

= 

13949 

460 

a 

4468 

10102 

a 

1289 

130 

a 

12351 

470 

z 

1001 

10104 

= 

1575 

135 

a 

9326 

480 

= 

143 

10106 

a 

1084 

1 10 

= 

2280 

500 

z 

4350 

10108 

a 

1424 

150 

9 

975 

510 

a 

3386 

10110 

a 

1 420 

160 

a 

2990 

520 

a 

1001 

10112 

a 

1516 

200 

= 

691 

530 

= 

143 

10114 

a 

1525 


Totals 287396 


Sprite Shapes 



PLANE 



STUNTMAN 
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Secret Ship-Shuttle Search 


OCORE: 9 



»$* hrr 


classification: Target Practice Game colour illust. obc 

Spies from the planet Zircon have stolen the formula for a valuable 
compound. The plan is to deposit counter-espionage agents in 
small shuttle-craft onto special landing sites on planet Zircon so 
that the formula can be recovered. 

You must deposit as many shuttle-craft as possible within the 
time limit and prevent the mother ship from colliding with enemy 
craft! 

A machine-code subroutine is used to scroll the screen. 
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PROGRAMMING SUGGESTIONS 

For some changes in speed modify these lines: 
mothership line 45 

SCROLL line 160 

The time limit TL is set in line 160, so you can change the duration 
of the game. 

A more ambitious alteration would be to add an enemy craft, so 
that avoiding collisions would be quite a challenge. The relevant 
section is lines 300-320. 

PROGRAM 

Variables 

SH 
SC 
TL 
GE 


Shuttle screen location 

Score 

Time limit 

Game ended (0 - 2) 
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Listing 


Initialise 


10 

REM RUN MACHINE CODE 





11 

REM SUPPORT 

PROGRAM 





12 

REM SEE APPENDICES 






15 

SCREEN 1, 3 

: KEY 

OFF : 

PRINT 

"*SECRET*SHIP*SHUTTLE*SEA 


RCH”: 

FOR I 

= 1 TO 

12 : 

PRINT 

: NEXT 


20 

FOR I 

= 1 TO 32 ! 

READ 

Q : A* 

= A* 

4 CHR*( Q ) 8 


NEXT 

: SPRITE*! 0 

4* 

<X 

<c 

II 

— n n 



25 

FOR I 

= 1 TO 8 : READ Q 

: A* 

= A* 4 

CHR* ( 

Q > 8 


NEXT 

: SPRITE*! 1 

) = A* 




30 

FOR I 

= 1072 TO 1231 : 

READ Q 

: VPOKE I, 

a 8 NEXT 

35 

FOR I 

= 603501 TO 

60401 

! : READ Q : 

POKE 

I, 0 s NEXT 

40 

POKE 

60346! 

, 224 s 

POKE 

60347 

! , 24 

8 POKE 

60348! , 


255 i 

POKE 

60349! , 

26 : 

DEFUSR2 = 60350! 


45 

POKE 

5999?! 

, 4 : POKE 59996!, 

15 : 

DEFUSR 

= 60000! 

50 

PUT SPRITE 

0, f 112, 55 

) , 11 i PRINT “**A*Hit*any*Key 


*to*Begin" 







55 

IF INKEY* = 

"" THEN D = 

USR2 ( 

D ) 8 

FOR I 

= 1 TO 


50 : 

NEXT i 

D = RND! 1 

) ! GOTO 55 







Set Up Screen 

100 

COLOR 

15, 1 

, 1 i CLS : 

VPOKE 

8208, 

145 8 

VPOKE 8209, 


145 : 

VFOKE 

8210, 

145 i 

PUT SPRITE 

0, ( 114, 80 ) , 11 

105 

VPOKE 

6753 , 

137 : 

VPOKE 

6768, 

144 s 

VPOKE 

6769, 


145 : 

VPOKE 

6773, 

134 





110 

VPOKE 

6784, 

136 i 

VPOKE 

6785, 

134 8 

VPOKE 

6786, 


138 : 

VPOKE 

6787, 

13 6 i 

VPOKE 

6799, 

139 8 

VPOKE 


6800, 

134 : 

VPOKE 

6801, 

134 : 

VPOKE 

6802, 

141 s 


VPOKE 

6805, 

134 : 

VPOKE 

6813, 

144 8 

VPOKE 

6814, 145 

115 

VPOKE 

6817, 

134 : 

VPOKE 

6819, 

137 s 

VPOKE 

6820, 


140 : 

VPOKE 

6822, 

136 : 

VPOKE 

6823, 

148 s 

VPOKE 


6824 , 

149 : 

VPOKE 

6825, 

148 : 

VPOKE 

6826, 

149 8 


VPOKE 

6827, 

138 : 

VPOKE 

6829, 

137 s 

VPOKE 

6830, 


140 ! 

VPOKE 

6832, 

142 i 

VPOKE 

6833, 

143 8 

VPOKE 


6837, 

134 : 

VPOKE 

6838, 

13 6 




120 

VPOKE 

6839 , 

148 : 

VPOKE 

6840, 

149 8 

VPOKE 

6841 , 


148 : 

VPOKE 

6842, 

149 : 

VPOKE 

6843, 

138 8 

VPOKE 


6845, 

146 i 

VPOKE 

6 846, 

147 




125 

VPOKE 

6849 , 

134 s 

VPOKE 

6850, 

139 s 

VPOKE 

6851 , 


134 : 

VPOKE 

6852, 

134 : 

VPOKE 

6853, 

141 8 

VPOKE 


6855 , 

150 : 

VPOKE 

6856, 

151 i 

VPOKE 

6857, 

150 8 


VPOKE 

6858, 

151 : 

VPOKE 

6860, 

139 s 

VPOKE 

6861 , 


139 








134 i 

VPOKE 

6862, 

134 : 

VPOKE 

6863, 

141 i 

VPOKE 


6864, 

134 : 

VPOKE 

6865, 

134 




130 

VPOKE 

6866 , 

144 : 

VPOKE 

6867, 

145 i 

VPOKE 

6869 , 


134 : 

VPOKE 

6871 , 

150 : 

VPOKE 

6872, 

151 : 

VPOKE 


6873, 

150 : 

VPOKE 

6874, 

151 : 

VPOKE 

6877, 

144 t 


VPOKE 

6878, 

145 






135 

VPOKE 

6881 , 

134 : 

VPOKE 

6883, 

142 : 

VPOKE 

6884, 


143 : 

VPOKE 

6887, 

150 : 

VPOKE 

6888 , 

151 t 

VPOKE 


6889, 

150 : 

VPOKE 

6890, 

151 ! 

VPOKE 

68 92, 

139 t 


VPOKE 

6893, 

134 s 

VPOKE 

6894, 

134 i 

VPOKE 

6895, 


141 : 

VPOKE 

6896, 

134 : 

VPOKE 

6897, 

134 


140 

VPOKE 

6898, 

142 : 

VPOKE 

6899 , 

143 : 

VPOKE 

6901, 


134 : 

VPOKE 

6903, 

150 : 

VPOKE 

6904, 

151 t 

VPOKE 


6905, 

150 : 

VPOKE 

6906, 

151 i 

VPOKE 

6909, 

146 i 


VPOKE 

6910, 

147 






145 

FOR I 

= 6176 

TO 6367 : : 

IF RND( 

1 ) < 

.2 THEN VPOKE 


I, 153 
150 NEXT 

155 GOSUB 1000 , PUT SPRITE 1, ( 255, 100 ) , 13 

160 TIME = 0 : ON INTERVAL = 10 GOSUB 500 : INTERVAL 

ON : TL = 100 

170 STRIG(0)ON:ON STRIG GOSUB700 
175 SPRITE ON : ON SPRITE GOSUB 600 



Control 

200 D = USR( D ) : IF VPEEK1 6912 ) > 136 THEN GE = 

1 : GOTO 900 

202 X = VPEEK( 6913 ) : IF X < 57 THEN POKE 59996!, 

13 ELSE IF X > 184 THEN POKE 59996!, 7 ELSE POKE 

59996!, 15 

210 GOSUB 300 

220 IF SH <> 0 THEN GOSUB 400 

290 GOTO 700 

300 SPRITE OFF : IF VP 

INT( RND( 1 ) # 12 
310 SPRITE ON : VPOKE 

320 RETURN 

Move Enemy Craft 

EEK( 6917 ) < 9 THEN VPOKE 6916, 

8 + 24 ) i VPOKE 6917, 255 

6917, VPEEK( 6917 ) - 7 

Move Shuttle 


400 INTERVAL OFF : STRIGI 0 ) OFF : K = VPEEK( SH + 
32 ) : INTERVAL ON : IF K = 148 OR K = 149 THEN 
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VPOKE 8208, 241 s VPOKE 8209, 241 i VPOKE 8210, 

241 : SC = SC + 10 : PLAY "SIH2000LI4N50N45": GOSUB 
1000 : VPOKE SH, 32 : SH = 0 t VPOKE 8208, 145 l 
VPOKE 8209, 145 : VPOKE 8210, 145 ! STR1G< I ) ON i 
RETURN 

410 IF K = 32 THEN SH = SH + 32 : VPOKE SH, 152 : VPOKE 
SH - 32, 32 ! STRIG( 0 ) ON s RETURN 


Crash 


450 VPOKE SH, 135 : FOR I = 1 TO 100 j NEXT s SC = SC 

- 10 : GOSUB 1000 : VPOKE SH, 32 i SH = 0 : STRIG( 0) 
ON : RETURN 


Scroll Screen 


500 D = USR2( D ) s IF TIME / 60 > TL THEN 900 

505 IF SH <> 0 THEN SH = SH - 1 

510 RETURN 


Collision 


600 INTERVAL OFF t STRIG ( 0 ) OFF i FOR I = 1 TO 20 I 
COLOR 15, 1, 1 i PLAY " 1 64s8*20000n21n12*« COLOR 
1, 15, 15 : NEXT 
610 GE = 2 : GOTO 900 


Deposit Shuttle 


700 IF SH <> 0 THEN RETURN 

710 13 = INTt ( VPEEK( 6913 ) + 20 ) / 8 > s SH » 6144 

+ 32 * INTI ( ( VPEEK ( 6912 ) + 20 > / 8 > ) + 13 i 
IF SH < 6368 THEN SH = 0 
740 RETURN 


Game Over 


900 COLOR 15, 4, 7 : SCREEN 1 : PRINT ■Your*score*Nas*’j 
SC 

910 PRINT : PRINT : PRINT : ONI GE + I ) GOTO 920, 930, 

940 

920 PRINT "YOUR*TIME*IS*UP! GOTO 990 

930 PRINT “MOTHERiSHIPiCRASHED!GOTO 990 

940 PRINT ''MOTHERiSHIPiCOLLIDEDiNITH": PRINT "ENEMY*CRAFT" 

990 IF INKEY* = "" THEN END ELSE 990 
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1000 

1010 


10000 


10010 


10100 
10102 
10104 
10106 
101011 
10110 
10112 
10114 
10116 
10118 
10120 
10122 
10124 
10126 
10128 
10130 
10132 
10134 
10136 
10138 


10200 


Update Score 


PRINT "SCORE:"; SC ; CHR*( 11 ) ; 
RETURN 


Sprite Data 


DATA 3, 4, 15, 31, 63, 64, 255, 213, 255, 213, 255, 
63, 31, 0, 0, 0, 192, 32, 240, 248, 252, 2, 255, 

85, 255, 85, 255, 252, 248, 0, 0, 0 
DATA 160, 160, 64, 160, 160, 0, 0, 0 


Character Data 


DATA 

255, 255 

, 255, 255, 255, 255, 

255, 

DATA 

68, 16, 

130, 40, 84, 130, 16, 

68 

DATA 

192, 48, 

12, 3, 0, 0, 0, 0 


DATA 

0, 0, 0, 

0, 15, 31, 63, 127 


DATA 

3, 12, 48, 192, 0, 0, 0, 0 


DATA 

1, 3, 7, 

15, 15, 7, 3, 1 


DATA 

0, 0, 0, 

0, 240, 248, 252, 254 


DATA 

128, 192 

, 224, 240, 240, 224, 

192, 

DATA 

255, 127 

, 63, 31, 31, 32, 64, 

128 

DATA 

255, 254 

, 252, 248, 248, 4, 2, 

1 

DATA 

0, 0, 0, 

0, 3, 15, 63, 255 


DATA 

0, 0, 0, 

0, 192, 240, 252, 255 


DATA 

255, 63, 

15, 3, 0, 0, 0, 0 


DATA 

255, 252 

, 240, 192, 0, 0, 0, 0 


DATA 

0, 0, 0, 

0, 255, 24, 31, 24 


DATA 

0, 0, 0, 

0, 255, 24, 248, 24 


DATA 

24, 24, 

31, 24, 24, 31, 24, 24 


DATA 

24, 24, 

248, 24, 24, 248, 24, 

24 

DATA 

16, 16, 

40, 40, 56, 124, 254, 

130 

DATA 

0, 0, 0, 

32, 0, 0, 0, 0 



Machine-Code Data 


DATA 


31, 42 

, 186 

, 235 

, 43 

, 35 

, 205, 27, 

235, 

120, 

254 

, 31, 

202, 

215, 

235, 

«, 

43, 205, 44 

, 235, 

35, 

195, 

227, 

235, 

6, 0, 

17, 

31, 

0, 25, 205 

. 44, 

235, 

183 

, 237, 

82, 

237, 


188, 

235, 123, 

189, 

194, 

196 

, 235 , 

122, 

188, 

194 

, 196, 235, 201 
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ChexSum Table 


10 

= 0 

175 

= 1014 

1000 

= 

1612 

11 

= 0 

200 

= 3257 

1010 

2 

143 

12 

= 0 

202 

= 5778 

10000 

a 

8092 

15 

= 4914 

210 

= 207 

10010 

= 

1463 

20 

= 3995 

220 

= 1347 

10100 

a 

1888 

25 

= 3499 

290 

= 593 

10102 

a 

1514 

30 

= 2011 

300 

= 4717 

10104 

2 

1156 

35 

= 2217 

310 

= 1556 

10106 

a 

1195 

40 

= 4607 

320 

= 143 

10108 

a 

1149 

45 

= 2521 

400 

= 19648 

10110 

a 

1035 

50 

= 3370 

410 

= 4136 

10112 

a 

1386 

55 

= 4291 

450 

= 5407 

10114 

a 

1888 

100 

= 3435 

500 

= 2295 

10116 

a 

1563 

105 

= 2B78 

505 

= 1881 

101 18 

a 

1541 

110 

= 3089 

510 

= 143 

10120 

a 

1136 

115 

= 12852 

600 

= 5947 

10122 

a 

1378 

120 

= 5615 

610 

= 1007 

10124 

a 

1147 

125 

= 15431 

700 

= 1168 

10126 

a 

1410 

130 

= 8073 

710 

= 7586 

10128 

= 

1213 

135 

= 2116 

740 

= 143 

10130 

= 

1274 

140 

= 1341 

900 

= 2808 

10132 

a 

1398 

145 

= 2900 

910 

= 2490 

10134 

= 

1523 

150 

= 131 

920 

= 2160 

10136 

a 

1568 

155 

= 1576 

930 

= 2531 

10138 

= 

974 

160 

= 4187 

940 

= 3757 

10200 

a 

21635 

170 

= 1684 

990 

= 1529 






Total 

= 240262 


Sprite Shapes 



SHUTTLE 

(CHARACTER) 
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Cross-Country 



classification: Simulation Game 

Here is a game for keen joggers and other runners. Go for your 
Personal Best on the 1000 m hazardous track. Press the space 
bar to jump over pot-holes and control your speed with the cursor 
keys, but keep your eyes open for lightning! 

A machine-code subroutine is used for scrolling. 

programming suggestions 

If you’re not happy with the ground or clouds then fix the set-up 
screen routine in lines 100-190. 

The usual speed changes can be made in line 90 (to move man 
further) and line 180 (to speed up the scroll). 
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PROGRAM 

Variables 

J Jumped? (used as a count) 

DT Distance run 

PC Player’s column 

LT Lightning (count) 

LD Level of difficulty 

GE Game ended 


145 



Listing 


Initialise 


5 REM RUN MACHINE CODE 

6 REM SUPPORT PROGRAM 

7 REM SEE APPENDICES 

10 KEY OFF : COLOR 15, 4, 7 s SCREEN 1,3* FOR I = 

I TO 32 : READ Q : A* = A* + CHR*( Q ) : NEXT ! 

SPRITE*! 0 ) = A* : A* = "" 

15 FOR I = 1 TO 32 : READ Q : A* = A* + CHR*< Q > : 

NEXT : SPRITE*! I ) = A* » A* = "? 

20 FOR I = 1 TO 32 : READ Q : A* = A* + CHR*< Q ) : 

NEXT : SPRITE*! 2 ) = A* : A* = "" 

25 FOR I = 1 TO 32 : READ Q s A* = A* ♦ CHR*( Q ) s 

NEXT : SPRITE*! 3 ) = A* 

30 FOR I = <0350! TO <0401! : READ Q : POKE I, Q : 

NEXT : DEFUSR2 ■ <0350! : POKE <034<!, 0 : POKE 
<0347!, 24 : FOKE <0348!, 223 s POKE <0349!, 25 
35 FOR I = 1072 TO 1215 : READ Q : VPOKE I, B s NEXT 

50 FOR I = 1 TO 11 : PRINT : NEXT : PRINT TAB! 8 ) 

"CROSS-COUNTRY" 

55 DEFUSR = <0000! ; DEFUSR1 = <0118! ! POKE 59999!, 

1 i FOKE 5999<! , 10 : POKE 59997!, 0 s POKE 59998!, 3 
60 PUT SPRITE 0, (0,55) , 1 

65 IF INKEY* = ■" THEN IF VPEEK( <914 I = 0 THEN VPOKE 
<914, 4 ELSE VPOKE <914, 0 ELSE GOTO 80 
70 D = USRI ( D ) ! GOTO <5 

00 PRINT : PRINT : INPUT "Level*of*Dif4iculty*(1-3)"jLD 

85 IF LD < 1 OR LD > 3 THEN 80 

90 POKE 59999 ! , LD + 2 


Set Up Screen 


100 PUT SPRITE 0, ( 100, 200 ) : CLS : FOR I = <<09 
TO <879 : VPOKE I, 134 : NEXT 
105 VPOKE <592, 134 : VPOKE <593, 134 i VPOKE <594, 

134 : VPOKE <595, 139 : VPOKE <596, 138 ! FOR I 
= <597 TO <<0< : VPOKE I, 134 i NEXT i VPOKE <<07, 
139 : VPOKE <<09, 138 

110 VPOKE <5<0, 135 : VPOKE <5<1, 135 : VPOKE <5<2, 

136 : VPOKE <5<3, 137 : FOR I = <5<5 TO <574 ! VPOKE 
I, 135 : NEXT : VFOKE <575, 137 : FOR I = <578 TO 
<58< : VPOKE I, 135 : NEXT s VPOKE <587, 13< t VPOKE 
<588, 137 : VPOKE <589, 138 
115 VPOKE <590, 135 : VPOKE <591, 135 
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1219 

125 

130 

135 

140 

145 

150 


155 

170 
1 80 
185 
190 


200 

205 

210 

220 

230 

240 

290 


VPOKE 6152, 142 : FOR I = 61 53 TO 6163 : VPOKE I, 

140 : NEXT : VPOKE 6/64, 146 : VPOKE 6/85, 142 : 

FOR I = 6/86 TO 6192 : VPOKE I, Z40 s NEXT ! VPOKE 

6/93, 144 : VPOKE 6/94, 144 : VPOKE 6/95, /45 
VPOKE 6209, Z50 : FOR 1 = 62/0 TO 62/5 : VPOKE I, 

149 : NEXT : VPOKE 62/6, 147 : VPOKE 62/8, 143 s 

FOR I = 62/9 TO 6223 ! VPOKE I, /40 s NEXT i VPOKE 

6224, 146 t VPOKE 6233, Z50 i VPOKE 6234, 149 : 

VPOKE 6235, 149 : VPOKE 6236, 147 

VPOKE 6240, 141 : FOR I = 6 241 TO 6248 ! VPOKE I, 

/40 : NEXT : VPOKE 6249, 148 : VPOKE 6250, 147 i 
VPOKE 625/, 143 i VPOKE 6252, 144 : VPOKE 6253, 

144 : VPOKE 6254, 144 i VPOKE 6255, /45 i VPOKE 

6259, /50 i FOR 1 = 6260 TO 6263 : VPOKE I, 151 : NEXT 

VPOKE 6264, 151 : FOR I = 6265 TO 6268 i VPOKE I, 

/40 : NEXT : VPOKE 6269, /48 

VPOKE 6272, /42 : FOR I = 6273 TO 6283 ! VPOKE I, 

140 : NEXT s VPOKE 6284, 148 : VPOKE 6290, 141 t 

FOR I = 629/ TO 630/ : VPOKE I, /40 : NEXT i VPOKE 

6302, 148 

VPOKE 6305, 142 : FOR I = 6306 TO 63/5 i VPOKE I, 

140 i NEXT i VPOKE 63/6, 146 s VPOKE 6322, 141 i 

FOR I = 6323 TO 6327 : VPOKE 1, 140 s NEXT i VPOKE 

6328, 146 : VPOKE 6329, 143 s FOR I = 6330 TO 6334 ! 
VPOKE I, 140 i NEXT 

VPOKE 6338, 143 i FOR I = 6339 TO 6346 i VPOKE I, 

144 i NEXT i VPOKE 6347, 145 : VPOKE 6354, 142 : 

FOR 1 = 6355 TO 6358 : VPOKE 1, 140 « NEXT « VPOKE 

6359, 146 : VPOKE 6362, 143 s VPOKE 6363, 144 i 

VPOKE 6364, 144 : VPOKE 6365, 144 ! VPOKE 6366, 145 

VPOKE 6387, 143 : VPOKE 6388, 144 t VPOKE 6389, 

144 : VPOKE 6390, 145 

PUT SPRITE 0, ( 154, 72 ) 

INTERVAL ON : ON INTERVAL = 15 - 2 * LD GOSUB 500 

SPRITE ON : ON SPRITE GOSUB 800 

STRIG( 0 ) ON : ON STRIG GOSUB 700 i TIME * 0 


Control 


D = USR( D ) : K = INT( ( VPEEK( 6913 ) + 8 ) / 

8 ) ! IF K - PC > 0 THEN DT = DT + 8 * < K - PC ) 
PC = K : IF VPEEK( 6560 + PC ) < > 135 AND J = 0 
AND PC <> 32 THEN GOSUB 600 

IF J <> 0 THEN J = J + / : IF J = 10 - 2 * LD THEN 
J = 0 : VPOKE 69/4, 0 
GOSUB /000 

IF RND( 1 ) < .07 THEN GOSUB 300 
IF LT <> 0 THEN GOSUB 320 
GOTO 200 
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Lightning 


300 IF LT <> 0 THEN RETURN 

305 PUT SPRITE 3, ( I NT < RND( 1 ) « 255 ) , 50 ) , 11 i 
LT = 1 : PLAY "12m2000s/0n45■: RETURN 
320 LT = LT + 1 

350 IF LT = 5 THEN PUT SPRITE 3, ( 100, 200 ) , II ! 

LT = 0 : RETURN 
350 RETURN 


Scroll Screen 


500 

D = USR2( 

D ) 



510 

DT = DT + 

1 



515 

IF J <> 0 

THEN RETURN 


520 

STRIGt 0 ) 

OFF : 

11 = VPEEK t 

6914 ) ■ IF 


THEN 11 ■ 

0 ELSE 

11=4 


530 

VPOKE 6914 

, 11 . 

STRIGt 0 ) 

ON : RETURN 


Player In Pothole 


600 SPRITE OFF : INTERVAL OFF i STRIGI 0 ) OFF s VPOKE 
6914, 8 : VPOKE 6912, 94 s PLAY ”12»40000s8n4"! 

FOR 12 = 1 TO 1500 i NEXT : VPOKE 6912, 72 t VPOKE 
6914, 0 

610 VPOKE 6913, ( VPEEK( 6913 1 ♦ 1 ) HOD 255 I PC = 

I NT( ( VPEEK( 6913 ) ♦ 8 ) / 0 ) : IF VPEEK( 6560 
+ PC > <> 135 THEN 610 

620 SPRITE ON : INTERVAL ON : STRIGt 0 ) ON ! RETURN 


Jump 


700 IF J <> 0 THEN RETURN 

710 J = 1 ! VPOKE 6914, 8 RETURN 


Player Struck By Lightning 


800 INTERVAL OFF : FOR I = 1 TO 20 : PLAY ■164m800sl4n50": 
FOR T = 1 TO 50 s NEXT : COLOR 15, 1, 1 s FOR T 
= I TO 50 : NEXT s COLOR 15, 4, 7 : NEXT 
810 GE = 1 


148 













Game Over 




900 CLS : IF GE = / THEN PRINT "Youahaveaabeenaelectrocuted 
PRINT : PRINT "Distance:"! DT } "aetresain": 

PRINT USING "I####.##”? TIME / 60 ; : PRINT "aseconds.": 
GOTO 990 

910 PRINT "Thearaceaisaover ! ! ! ! PRINT : PRINT "Youratime 
was’! : PRINT USING "MMt.M"; TIME / 60 ; i PRINT 
"asec ends." 

990 IF INKEY* <> "" THEN END ELSE 990 


Update Distance 


1000 FOR I = I TO 23 : PRINT : NEXT : PRINT "Distance:"! 

DT i CHR* ( 11 ) ; 

1010 IF DT > 1000 THEN 900 
1020 RETURN 


Sprite Data 


10000 DATA 1, 3, 3, 1, 7, 11, 19, 11, 7, 3, 195, 70, 44, 
24, 0, 0, 128, 192, 192, 128, 192, 196, 232, 208, 
192, 192, 96, 48, 24, 16, 32, ,96 
10010 DATA 1, 3, 3, 1, 3, 3, 3, 3, 3, 3, 1, 1, 1, 2, 4, 

2, 128, 192, 192, 128, 192, 192, 240, 192, 192, 

128, 128, 128, 128, 128, 128, 192 
10020 DATA 33^ 19, 1 1 , 5, 3, 3, 3, 3, 3, 131 , 255,' 0, 

0, 0, 0, 0, 132, 200, 208, 160, 192, 192, 192, 192, 

192, 193, 255, 0, 0, 0, 0, 0 
10030 DATA 6, 12, 24, 48, 12, 3, 0, 0, 0, 0, 0, 0, 0, 

1, 3, 6, 0, 0, 0, 0, 0, 0, 192, 48, 12, 24, 48, 

96, 192, 128, 0, 0 


Machine-Code Data 


10100 DATA 6, 31, 42, 186, 235, 43, 35, 205, 27, 235, 

120, 254, 31, 202, 215, 235, 4, 43, 205, 44, 235, 
35, 195, 227, 235, 6, 0, 17, 31, 0, 25, 205, 44, 
235, 183, 237, 82, 237, 91, 188, 235, 123, 189, 
194, 196, 235, 122, 188, 194, 196, 235, 201 
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Character Data 


1 0200 

DATA 

255, 255 

, 255 

, 255 

, 255, 255, 255, 

255 

10202 

DATA 

0, /70, 

255, 

255, 

255, 255, 255, 255 

10204 

DATA 

0, 192, 

225, 

227, 

243, 247, 247,‘255 

10206 

DATA 

0, 0, 128, 192, 192, 224, 224, 240 


10200 

DATA 

0, 2, 3, 

3, 7 

, 7, 

7, 15 


10210 

DATA 

240, 240 

, 248 

, 248 

, 252, 252, 254, 

255 

10212 

DATA 

170, 85, 

1 70, 

85, 

170, 85, 170, 85 


10214 

DATA 

1, 5, 10 

, 13, 

21, 

26, 13, 21 


10216 

DATA 

10, 21, 

10, 13, 6, 

10, 5, 2 


10218 

DATA 

170, 85, 

106, 

53, 

10, 0, 0, 0 


10220 

DATA 

"■4 

IS 

00 

170, 

205, 

134, 0, 0, 0 


10222 

DATA 

85, 170, 

84, 

172, 

80, 0, 0, 0 


10224 

DATA 

85, 170, 

00 

CK 

168, 

84, 168, 80, 160 


10226 

DATA 

0, 0, 0, 

160, 

80, 

176, 84, 170 


10220 

DATA 

128, 80, 

160, 

64, 

168, 80, 170, 84 


10230 

DATA 

0, 0, 140, 198, 85 

, 170, 85, 170 


10232 

DATA 

0, 0, 0, 

2, 1 

, 5, 

10, 13 


10234 

DATA 

1, 5, 10 

, 85, 

170, 

85, 170, 85 
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ChexSum Tables 


5 

= 0 

6 

= 0 

7 

= 0 

Id 

= 5594 

15 

= 3996 

20 

= 3997 

25 

= 3481 

30 

= 7334 

35 

= 1995 

50 

= 2926 

55 

= 5636 

60 

= 754 

65 

= 3961 

70 

= 1255 

B0 

= 3200 

05 

= 1566 

90 

= 1133 

100 

= 3295 

105 

= 0634 

110 

= 13438 

115 

= 1362 

120 

= 8048 

125 

= 3696 

130 

= 4661 

135 

= 3257 

140 

= 7762 

145 

= 0056 

150 

= 512 

155 

= 560 


170 

= 836 

180 

= 3782 

185 

= 926 

190 

= 2240 

200 

= 6088 

205 

= 4705 

210 

= 3934 

220 

= 397 

230 

= 1589 

240 

= 1274 

290 

= 593 

300 

= 1175 

305 

= 4449 

320 

= 833 

330 

= 2619 

350 

= 143 

500 

= 716 

510 

= 817 

515 

= 1080 

520 

= 3762 

530 

= 1423 

600 

= 8074 

610 

= 6950 

620 

= 2515 

700 

= 1080 

710 

= 931 

800 

= 7565 

810 

= 403 

900 

= 12612 


910 

= 

7144 

990 

= 

1529 

1000 

= 

3411 

1010 

= 

1194 

1020 

= 

143 

10000 

= 

7802 

10010 

= 

7586 

10020 

= 

7182 

10030 

= 

5457 

10100 


21635 

10200 

= 

1888 

10202 

3 

1778 

10204 

= 

1780 

10206 

= 

1625 

10208 

= 

965 

10210 

= 

1881 

10212 

= 

1640 

10214 

= 

1265 

10216 

= 

1202 

10218 

= 

1331 

10220 

= 

1470 

10222 

= 

1344 

10224 

= 

1657 

10226 

= 

1393 

10228 

= 

1651 

10230 

= 

1518 

10232 

= 

1029 

10234 

= 

1399 





Sprite Shapes 



MAN: POSITION 2 




MAN: POSITION 1 


LIGHTNING 
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Shooting Gallery 



CLASSIFICATION: Target Practice Game 

Step right up and have a go! Only $1.00 for five shots — and you 
get five shots free! 

Scoring: 

front ducks 20 0 

middle ducks 50 0 
crazy bird $1.00 

PROGRAMMING SUGGESTIONS 

Lines 710-750 can be varied to change the difficulty of hitting a 
bird, and flight speeds are controlled by line 350 (middle birds) 
and line 410 (front birds). 

Try putting in an extra row of birds with different values to add 
some variety. 
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PROGRAM 

Variables 

M Money left 

NS Number of shots (0-5) 

DH Bird hit (-1 if none) 

Cl, C2 Timing of middle and front birds 
UM Update money? 












Listing 





Initialise 

10 

REM RUN MACHINE CODE 





11 

REM SUPPORT PROGRAM 





12 

REM SEE APPENDICES 





15 

SCREEN 

1, 2 : COLOR 1, 15, 15 

t 

KEY OFF i 

PRINT 



"A4A4i 

iSHOOTINGiGALLERY" 





20 

FOR I 

= 1 TO 32 : 

READ Q : A* 

= 

A* '+ CHR* ( 

Q ) 

: 


NEXT 

SPRITE*! 0 

II 

X* 

4* 

X> 

4* 

= 

n n 



25 

FOR I 

= 1 TO 32 : 

READ Q : A* 

= 

A* + CHR*( 

Q ) 

: 


NEXT : 

SPRITE*! I 

) = A* : A* 

= 

H N 



30 

FOR I 

= 1 TO 32 : 

READ Q : A* 

S 

A* ♦ CHR*! 

Q ) 

. 


NEXT : 

SPRITE*! 2 

) = A* i A* 

= 

II N 



35 

FOR I 

= 1 TO 32 t 

READ Q : A* 

= 

A* + CHR*( 

0 ) 

. 


NEXT : 

SPRITE*! 3 

4* 

A* 

<r 

m 

= 

N It 



40 

FOR I 

= I TO 32 : 

READ Q : A* 

E 

A* + CHR*( 

Q ) 

! 


NEXT : 

SPRITE*! 4 

II 

4* 

x> 

** 


■ ■ 



45 

FOR I 

= 1 TO 32 : 

READ Q : A* 

E 

A* + CHR* < 

Q ) 

: 


NEXT : 

SPRITE*! 5 

II 

X» 

** 

x> 

4* 

= 

N n 



50 

FOR I 

= 1 TO 32 : 

READ 0 : A* 

s 

A* + CHR*( 

0 ) 

! 


NEXT : 

SPRITE*! 6 

II 

4* 

x> 

= 

N II 



55 

FOR I 

= 1072 TO 1119 : READ Q 

1 

VPOKE I, 0 

i NEXT 

60 

DEFUSR 

= 60118' i 

POKE 59997! , 

2 

i POKE 59998! , 



1 : POKE 59999! , 5 

: PUT SPRITE 

2, ( 255, 

80 ) 

, 4 

65 

D = USR( D ) : IF 

INKEY* <> "" 

THEN 80 



70 

D = RND ( 1 ) : IF 

VPEEK ( 6922 

) 

= 8 THEN VPOKE 

6922, 


12 ELSE VPOKE 6922 

, 8 





75 

FOR I 

= 1 TO 120 i 

NEXT s GOTO 

65 



80 

DH = - 

1 









Set Up Screen 

00 

CLS : 

VPOKE 6922, 

8 : PUT SPRITE 

2, ( 255, 

36 ) 



, 12 : PUT SPRITE 3, ( 140, 36 > , 12 i PUT SPRITE 

0, ( 100, 16 ) , 8 : PUT SPRITE 4, < 0, 64 ) , 4 : 

PUT SPRITE 5, ( 115, 64 ) , 4 
110 FOR I = 6145 TO 62B6 : VPOKE I, 23 : NEXT s FOR 

I = 6729 TO 6742 : VPOKE I, 23 i NEXT i FOR I = 

6793 TO 68B6 : VPOKE 1, 23 I NEXT 
115 FOR I = 6816 TO 6847 t VPOKE f, 139 : NEXT i FOR 
I = 6496 TO 6784 STEP 32 i FOR J = 0 TO 7 l VPOKE 

I + J, 134 : VPOKE I + J + 24, 134 i NEXT i NEXT 

120 VPOKE 61,44 , 24 : VPOKE 6728, 24 : VPOKE 6176, 26 i 

VPOKE 6792, 26 : VFOKE 6175, 25 : VPOKE 6743, 25 i 

VPOKE 8207, 27 : VPOKE 6807, 27 
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125 VPOKE 6760, 22 : VPOKE 6775, 22 : VPOKE 6703, 135 i 
VPOKE 6735, 136 : VPOKE 6767, 137 
130 5TRIG( 0 ) ON : ON 5TRIG GOSUB 700 
140 GOSUB 800 


Control 


200 GOSUB 300 s GOSUB 350 t GOSUB 400 

210 IF DH > = 0 THEN GOSUB 450 

220 IF UM = 1 THEN GOSUB 800 ! Uh = 0 

290 GOTO 200 


Move Crazy Bird 


300 POKE 59999'., 7 : POKE 59997!, 0 s IF RND( 1 > < 

.5 THEN POKE 59998!, 1 ELSE POKE 59998!, 3 
320 IF VPEEK t 6913 ) > 194 THEN POKE 59998!, 1 ELSE 
IF VPEEK( 6913 ) < 65 THEN POKE 59998!, 3 
330 D « USR( D ) 

335 IF RND( 1 ) < .5 THEN VPOKE 6914, 4 ELSE VPOKE 6914,0 
340 RETURN 


Move Middle Birds 


350 POKE 59999!, 13 : POKE 59997!, 2 s K1 = VPEEK( 6922 > 
: VPOKE 6922, VPEEK! 6926 ) ! VPOKE 6926, K1 
360 POKE 59998', 1 : D = USR! D ) « POKE 59997!, 3 « 

D = USR! D ) 

370 RETURN 


Move Front Birds 


400 C2 » ( C2 ♦ 1 ) MOD 2 s POKE 59997!, 4 : IF C2 = 

0 THEN K1 = VPEEK! 6930 > s VPOKE 6930, VPEEK! 6934 ) 
: VPOKE 6934, K1 

410 POKE 59999!, 4 : POKE 59998!, 3 8 D = USRl D ) i 
POKE 59997!, 5 : D = USR( D ) 

430 RETURN __ 


New Bird 


450 ON! DH + 1 ) GOTO 465, 469, 470, 475, 480, 485 

465 PUT SPRITE 0, ( 100, 16 ) 8 GOTO 490 

470 VPOKE 6922, 8 s VPOKE 6926, 12 
472 GOTO 490 
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475 VPOKE 6922, 8 t VPOKE 6926, 12 
477 GOTO 490 

480 VPOKE 6930, 16 : VPOKE 6934, 20 
483 GOTO 490 

485 VPOKE 6930, 16 : VPOKE 6934, 20 
490 DH = - / : RETURN 


Bird Hit 


500 PLAY "150ml200sl0n74r30n74r30n74r30n?4r30n74r30n74r30n7 
4": ON( DH + I ) GOTO 505, 508, 5/0, 515, 520, 525 


505 

M = M 

* 1 : 

VPOKE 6 914, 24 : 

FOR 

12 = 1 

TO 

500 t NEXT 

507 

VPOKE 

6 914, 

0 : GOTO 540 






510 

M = M 

+ .5 

: VPOKE 6922, 

24 

s FOR 

12 = 1 

TO 

500 i NEXT 

512 

VPOKE 

6922, 

8 : GOTO 540 






515 

M = M 

+ .5 

: VPOKE 6926, 

24 

: FOR 

12 = 1 

TO 

500 ) NEXT 

517 

VPOKE 

6926, 

12 : GOTO 540 





520 

M = M 

+ .2 

i VPOKE 6930, 

24 

i FOR 

12 = 1 

TO 

500 i NEXT 

522 

VPOKE 

6930, 

16 s GOTO 540 





525 

VPOKE 

6934, 

24 : 11 = H t 

.2 

: FOR 

12 = 1 

TO 

500 : NEXT 

527 

VPOKE 

6934, 

20 






540 

UM = 1 

! STRIG( 0 ) ON i 

RETURN 





600 

620 



700 

STRIG( 0 ) OFF 

: PLAY 

710 

IF ABS( VPEEK( 
GOTO 500 

6929 ) 

720 

IF ABS( VPEEK( 

GOTO 500 

6933 ) 

730 

IF ABS( VPEEK! 
GOTO 500 

6921 ) 

740 

IF ABS! VPEEK! 
GOTO 500 

6925 ) 

750 

IF ABS! VPEEK! 
GOTO 500 

6913 ) 

760 

GOTO 600 



164m60s8n27"i NS = NS + 1 


114 

) 

< 

3 

THEN 

DH 

= 

4 ! 

114 

) 

< 

3 

THEN 

DH 

= 

5 : 

114 

) 

< 

3 

THEN 

DH 

= 

2 : 

114 

) 

< 

3 

THEN 

DH 

= 

3 i 

114 

) 

< 

3 

THEN 

DH 

- 

0 < 
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Update Money 


800 IF M > = 0 THEN A* = "YoiuHave: 4 *" ELSE A$ = "YoiuOHei 

4 $" 

805 IF M < 0 THEN 13 = 1 NT ( - M ) : 14 = - ( M + 13 ) 

ELSE 13 = INTI M I s 14 = M - 13 

807 FOR I = I TO 77 i PRINT : NEXT : PRINT A* j : PRINT 

USING "###"; 13 ; : PRINT USING 14 : PRINT 

CHR*( 11 ) ; 

810 IF NS > 4 THEN 850 ELSE RETURN 


More Shots? 


850 PLAY "110sl4m2000n30n40n20n27"t STRIGI 0 ) OFF s 

FOR I = 1 TO 23 : PRINT ! NEXT : PRINT " Another*5*Shots 
?4(Y/N)"j CHR*< 11 ) j 

855 X» = INKEYt : IF Xt = •" THEN 855 ELSE IF X* <> 

"Y" AND X* <> "y* AND X$ <> "N" AND X$ <> "n" THEN855 
860 IF X* = "N" OR X$ = "n" THEN 900 

865 M = M - 1 ! NS = 0 : GOSUB 800 

870 FOR I = 6887 TO 6910 i VPOKE I, 32 : NEXT : STRIGI 0) 

ON : RETURN 


Game Over 


900 SCREEN 1 : IF M < 0 THEN PRINT " YOU 4 OWE:I"| : PRINT 
USING - M : GOTO 990 

920 PRINT "YOU 4 HAVE 4 WON: 4 »"; : PRINT USING 
M : GOTO 990 

990 IF INKEY* <> THEN END ELSE 990 


Sprite Data 


10000 

DATA 128, 64, 96, 56, 28, 13, 

7, 

J, 1, 2, 0, 

0, 


0, 0, 0, 0, I, 2, 6, 28, 56, 
64, 0, 0, 0, 0, 0, 0 

176, 

224, 192, 

128, 

10010 

DATA 0, 0, 0, 0, 0, I, 7, 15, 

25, 

50, 32, 32 

, 32, 


0, 0, 0, 0, 0, 0, 0, 0, 17 8, 
4, 4, 4, 0, 0, 0 

724, 

240, 152, 

76, 

10020 

DATA 0, 0, 0, 0, 3, 14, 24, 12, 6 

, 115, 255, 

63, 


7, 0, 0, 0, 0, 0, 0, 0, 252, 
255, 254, 252, 248, 0, 0 

32, 

64, 32, 248 

, 255 

10030 

DATA 0, 0, 0, 0, 1, 115, 255, 

63, 

3, 7, 7, 3 

. 0, 


0, 0, 0, 0, 0, 0, 0, 248, 254 

, 255, 255, 252 

, 248 


248, 248, 252, 62, 15, 0 
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10040 

DATA 

0, 0, 0, 0, 63 

, 4, 2, 4, 63, 255, 

255, 127, 


63, 

31, 0, 0, 0, 0, 

0, 0, 192, 112, 24 

, 48, 224, 


206 , 

255, 252, 224, 

0, 0, 0 


10050 

DATA 

0, 0, 0, 0, 31 

, 127, 255, 255, 63 

, 31, 31, 


31, 

63, 124, 240, 0 

, 0, 0, 0, 0, 126, 

206, 255, 


252, 

192, 224, 224, 

192, 0, 0, 0, 0 


10060 

DATA 

130, 200, 96, 

49, 25, 45, 39, 75, 

19, 5, 66 


4, 65, 144, 4, 34, 

1, 35, 6, 140, 216, 

177, 224, 


201 , 

196, 144, 66, 

32, 4, 18, 128, 1 



Character Data 


10100 

DATA 

170 

00 

cn 

170, 85, 170, 85, 170, 85 

10102 

DATA 

96, 

32, 

32, 32, 32, 32, 32, 32 

10104 

DATA 

32, 

32, 

48, 48, 48, 48, 112, 56 

10106 

DATA 

48, 

56, 

56, 56, 60, 60, 60, 60 

10108 

DATA 

0, 

0, 24 

, 36, 82, 133, 64, 18 

10110 

DATA 

170 

, 85, 

170, 85, 0, 0, 0, 0 

ChexSum Table 


10 

= 0 

220 

= 1457 

510 

= 

2664 

11 

= 0 

290 

= 593 

512 

2 

845 

12 

= 0 

300 

= 5130 

515 

* 

2664 

15 

= 3436 

320 

= 4736 

517 

2 

843 

20 

= 3995 

330 

= 691 

520 

2 

2572 

25 

= 3996 

335 

= 2329 

522 

2 

855 

30 

= 3997 

340 

= 143 

525 

2 

2594 

35 

= 3994 

350 

= 4466 

527 

S 

366 

40 

= 3995 

360 

= 3114 

540 

2 

1382 

45 

= 3996 

370 

= 143 

600 

= 

3028 

50 

= 3997 

400 

= 5834 

620 

= 

630 

55 

= 1899 

410 

= 4013 

700 

= 

2971 

60 

= 4763 

430 

= 143 

710 

= 

3319 

65 

= 2046 

450 

= 2989 

720 

= 

3322 

70 

= 3220 

465 

= 1457 

730 

2 

3303 

75 

= 1569 

470 

= 759 

740 

= 

3306 

80 

= 651 

472 

= 627 

750 

2 

3303 

100 

= 6885 

475 

= 759 

760 

a 

483 

110 

= 5843 

477 

= 627 

800 

= 

3960 

115 

= 7267 

480 

= 810 

805 

2 

5472 

120 

= 4733 

483 

= 627 

807 

2 

4368 

125 

= 3345 

485 

= 810 

810 

2 

1268 

130 

= 16B4 

490 

= 856 

850 

2 

8241 

140 

= 158 

500 

= 8016 

855 

2 

6687 

200 

= 918 

505 

= 2432 

860 

2 

1916 

210 

= 1376 

507 

= 829 

865 

= 

1392 
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Laser Battle 



classification: Shoot-Out Game 

This is one of the fastest games, with dazzling laser effects and 
super sounds that will thrill the arcade enthusiasts. Waves of 
guard ships try to obliterate your planet by striking one of the three 
energy stores or your laser 

The mother ship adds to the enemy’s firepower and is worth 
more points. The small machine code routine is used to create the 
laser effect. 

Use the cursor keys to move left or right and the <SPACE> bar 
to fire. 
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PROGRAMMING SUGGESTIONS 

To add to the speed of the mother ship, change the poke to 59999 
in line 255. 

More guard ships could be added, but make sure you update 
the ‘Position Guard Ships’, 'Guard Fires’ and 'Blow Guard Ship’ 
routines. 

PROGRAM 

Variables 


PH 

Phase (0-2) 

GS(N, 1) 

Guard ship attributes: N = ship number 
1 = 1 (column), 1 = 2 (row), 

1 = 3 (stopped flag) 

PG 

Column of player’s gun 

IH 

Ship hit flag 

ISP 

Starting point for firing laser 

FG 

Number of the guard ship that is firing 

NM 

Number of guns left 
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Listing 


Initialise 


5 

10 

11 

12 

15 

20 

25 


27 

30 

35 

40 


50 

52 

55 

57 


60 

65 

67 

70 

75 


KEY OFF : SCREEN 1,2: COLOR 15, 1, 1 
REM RUN MACHINE CODE 
REM SUPPORT PROGRAM 
REM SEE APPENDICES 

FOR I = 1 TO 8 i READ Q : A* = A* + CHR$( Q ) j 
NEXT : SPRITE*! 0 ) = A* : A* = "" 

FOR 1 = 1 TO 32 : READ Q : A* = A* + CHR*( Q ) : 

NEXT : SPRITE** 1 ) = A* 

DEFUSR0 = 60000! : DEFUSR1 = 60118! i POKE 59996!, 

10 : POKE 59997!, 1 : POKE 59998!, 3 : POKE 59999!, 

4 : DEFUSR2 = 60220' : FOR I = 60220! TO 60248! s 
READ Q : POKE I, Q : NEXT 

FOR I = 1088 TO 1344 STEP 64 s FOR J = 0 TO 7 s 

READ Q : VPOKE I + J, Q : NEXT : NEXT 

PUT SPRITE 1, ( 100, 45 ) , 7 : PUT SPRITE 0, ( 

127, 100 ) , II ! NM = 3 i ON STRIG GOSUB 150 

CLS : PRINT ”iiuuitLASER*BATTLE"s FOR 1 = 1 TO 
18 ! PRINT : NEXT : PRINT IT*ANY*KEY*TO*BEGIN" 

IF INKEY* = "" THEN D = USRK D ) : FOR 1 = 1 TO 
100 : NEXT : PLAY "L9M1000S14N33": GOTO 35 


Set Up Round 


CLS : PUT SPRITE 1, ( 100, 200 ) 

VFOKE 8209, 225 i VPOKE 8210, 49 s VPOKE 8211, 177 ! 

VPOKE 8212, 97 s VPOKE 8213, 241 

FOR I = 6720 TO 6751 : VPOKE I, 136 ! NEXT i FOR 

I = 6816 TO 6847 : VPOKE I, 23 : NEXT i VPOKE 6787, 

160 : VPOKE 6799, 160 : VPOKE 6812, 160 

FG = 15 : GOSUB 1000 : PUT SPRITE 0, ( 120, 150 ) 

, 15 : STRIGt 0 ) ON 


Control 


POKE 59999!, 8 : D = USR0I D ) : PG = I NT( VPEEKI 
6913 ) / 8 ) 

IF PH = 2 THEN GOSUB 400 ELSE IF PH = 0 THEN GOSUB 
270 : GOTO 70 
GOSUB 750 

IF RND( 1 ) < .01 AND PH = 1 THEN PH = 2 
IF PH = 0 THEN 80 
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77 

IF RND( 1 ) < , 

.8 OR PH 

= 2 THEN 80 

7B 

GOSUB 190 



90 

IF VPEEK! 6912 

II 

KSl 

O 

THEN 500 

90 

GOTO 60 




Player Fires 


150 D = RND( 1 ) : STRIBI 0 ) OFF : PLAY "19«1000sl4n33" 

155 IH = 0 : 12 = 0 : FOR II = 1 TO 4 : IF GS ( II, 

1 ) = PG THEN 12 = 1/ 

156 NEXT : POKE 59991 !, 152 

157 IF 12 <> 0 THEN ISP = 6144 + 32 » GS ! 12, 2 > + 

PG : IH = 2 ! GOTO 165 

160 IM = VPEEK( 6917 ) : IP = PG * 8 

162 IF IP < IM + 2 OR IP - IH > 6 OR VPEEK( 6916 ) = 

200 THEN ISP = 6144 ♦ PG : GOTO 165 

163 IH = 1 : ISP = 6208 + PG 

165 POKE 59992!, ISP MOD 256 : POKE 59993!, ISP ¥ 256 : 
13 = 6720 + PG i POKE 59994!, 13 MOD 256 : POKE 
59995!, 13 ¥ 256 ! D = USR2< D ) 

170 POKE 59991!, 32 : FOR 13 = 1 TO 20 i NEXT i D = 

USR2( D ) 

175 IF IH = 1 THEN GOSUB 300 

177 IF IH = 2 THEN GOSUB 350 

1B0 STRIGI 0 ) ON : RETURN 


Guard Ship Fires 


190 IF GS ( 1, 1 ) = 0 AND GS ( 2, 1 ) = 0 AND GS ( 3,1) 

= 0 AND GS < 4, 1 ) = 0 THEN RETURN ELSE STRIGI 0 ) OFF 

191 FG = FG * 1 : IF FG = 5 THEN FG = I 

192 IF GS I FG, 1 ) * 0 THEN 191 

193 FL = 0 : K1 = 0 s POKE 59991!, 1 52 i I = 6176 ♦ 

32 » GS ( FG, 2 )+ GS ( FG, 1 ) i POKE 59992!, 

I MOD 256 : POKE 59993! , I ¥ 256 

195 IF VPEEK! 6720 + GS I FG, 1 ) ) = 136 THEN J = 6752 
+ GS ( FG, I > s GOTO 200 

196 J = 6816 + GS ( FG, 1 ) : IF GS ( FG, 1 ) = PG THEN 
K1 = 1 

197 K = GS < FG, 1 ): IF K = 3 OR K = 15 OR K = 28 
THEN FL = 1 

200 POKE 59994!, J MOD 256 : POKE 59995!, J ¥ 256 : 

D = USR2I D ) : IF FL = 1 THEN FOR J = 1 TO 10 : 

COLOR 1, 15, 15 ! FOR T = 1 TO 30 i NEXT s PLAY 

"139m59000s8n2": COLOR 15, 1, 1 t FOR T = 1 TO 30 i 
NEXT ! NEXT : GOTO 500 

202 IF K1 = 1 THEN PUT SPRITE 0, ( 100, 200 ) i FOR 

K = 1 TO 7 : PLAY "16 4ml 000sl4n20n21n20n21"s NEXT 
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205 PLAY "lmTSDslSnSD": POKE 5999/!, 32 : D = USR2< D ) 
210 STR1G( 0 ) ON : RETURN 


Position Guard Ships 


220 IF GS ( /, 1 ) <> 0 THEN 225 

221 I = I NT ( RND ( I ) # 31 + 1 > I IF I » GS ( 2, 1 ) 

OR I = GS ( 3, J ) OR 1 = GS ( 4, 1 ) THEN 221 ELSE 

GS C 1, 1 > * I « GS ( 1, 2 > ■ 0 I VPOKE 6144 + 

I, 144 : RETURN 

225 IF GS ( 2, 1 ) <> 0 THEN 230 

226 I = I NT < RND( / ) * 31 ♦ / ) l IF I = GS ( /, 1 > 

OR I = GS ( 3, 1 ) OR I = GS ( 4, 1 ) THEN 226 ELSE 

GS ( 2, 1 ) = I ! GS 1 2, 2 ) = 0 : VPOKE 6144 ♦ 

I, 144 : RETURN 

230 IF GS ( 3, 1 ) <> 0 THEN 235 

231 I = I NT( RND ( 1 > * 3/ + / ) s IF I = GS ( 1 , 1 > 

OR I = GS ( 2, 1 ) OR 1 = GS ( 4, 1 ) THEN 231 ELSE 

Gs ( 3 , 1 ) = I : GS ( 3, 2 ) = 0 s VPOKE 6144 + 

I, 144 : RETURN 

235 IF GS ( 4, 1 ) <> 0 THEN 240 

236 I = INTI RND( 1 ) * 31 + 1 ) : IF I = GS < 1, 1 ) 

OR I = GS I 2, 1 ) OR l = GS I 3, 1 > THEN 236 ELSE 

GS ( 4, 1 ) = I : GS ( 4, 2 ) = 0 i VPOKE 6144 * 

I, 144 i RETURN 

240 IF GS ( 1, 3 ) = 1 AND GS ( 2, 3 ) = 1 AND GS ( 3,3) 
= 1 AND GS I 4, 3 > = 1 THEN PH * 1 ! RETURN 

242 J = I NT( RNDI 1 > » 4 + 1 > t IF GS C J, 3 > ■ 1 

THEN 242 

243 VPOKE GS ( J, 1 ) ♦ 32 * GS ( J, 2 ) + 6144, 32 : 

GS ( J, 2 ) = GS ( J, 2 ) + 1 

244 IF GS < J, 1 ) <> 0 THEN VPOKE GS ( J, 1 > ♦ 32 

* GS ( J, 2 ) ♦ 6144, 144 

246 IF RND ( 1 ) < .1 OR GS ( J, 2 ) > = 7 THEN GS < 

J, 3 ) = 1 

248 RETURN _ 


Move Mother Ship 


250 IF VPEEK( 6916 ) <> 200 THEN 255 

253 MC = 2 : PUT SFRITE 1, ( 0, 15 > : RETURN 

255 POKE 59997!, 1 s POKE 59998!, 3 : POKE 59999!, 6 t 
D = USR1( D ) : IF VPEEKl 6917 ) > 251 THEN PUT 
SFRITE 1, ( 200, 200 ) : RETURN 
260 (1C = INTI I VPEEK I 6917 ) + 8 ) / 8 ) : IF RND I 1) 

< .85 THEN RETURN 

265 IF MC <> GS I 1, 1 ) AND MC <> GS ( 2, 1 ) AND MC 

<> GS I 3, I ) AND MC <> GS ( 4 , 1 ) THEN GOSUB 280 

270 RETURN 
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2B0 PLAY "124ml60s8n67" 

282 STRIG( 0 ) OFF : FL = B : K1 = 0 : POKE 5999/!, 

J52 : I = 6240 + MC : POKE 59992!, I HOD 256 i POKE 
59993! , I ¥ 256 

284 IF VPEEK( MC + 6720 ) = 136 THEN J = 6752 + MC I 
GOTO 290 

286 J = 6916 + MC : IF MC = 3 OR MC = 15 OR MC * 28 
THEN FL = 1 

287 IF MC = PG THEN K/ = 1 

290 POKE 59994!, J MOD 256 : POKE 59995!, J V 256 : 

D = USR2( D ) 

291 IF FL = 1 THEN FOR J = 1 TO 10 « COLOR 1, 15, 15 ! 
FOR T = 1 TO 30 s NEXT : PLAY ■139«59000s8n2"i COLOR 
15, 1, 1 : FOR T = 1 TO 30 t NEXT s NEXT s GOTO 500 

292 PLAY "124*160s8n67" 

293 IF K1 = 1 THEN PUT SPRITE 0, ( 100, 200 > : FOR 

J = 1 TO 7 : PLAY *164ml000sl4n20n21n20n21*: NEXT 

294 POKE 59991!, 32 s D = USR2( D ) * 

299 STRIG( 0 ) ON i RETURN 



300 SC = SC + 50 : GOSUB 1000 

310 PLAY "164m60000s8n20n21n24n28n40n45n43n29n20nl513nI0" 
320 FOR 14 = 1 TO 60 : VPOKE 14368 + I NT( RND( 1 ) • 

30 ) , INTI RNDI 1 ) * 255 I i NEXT : SPRITE*! 1 )= A* 
330 PUT SPRITE 1, ( 200, 200 ) 

340 RETURN 



350 VPOKE 6144 + GS ( 12, 1 ) + 32 * GS ( 12, 2 ) , 

168 i SC = SC + 10 : GOSUB 1000 i FOR T 5 1 TO 30 i 
NEXT 

355 VPOKE 6144 + GS ( 12, 1 > + 32 • GS ( 12, 2 ) , 

32 : GS ( 12, 1 )= 0 
360 RETURN 
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Position Guard Ships (Last Phase) 


400 IF BS ( 1, 1 ) <> 0 OR GS ( 2, 1 ) <> 0 OR GS ( 3,/) 
<> 0 OR GS I 4, 1 ) <> 0 THEN STR16< 0 ) OFF i GOTO 
405 

402 FOR J = 1 TO 4 : GS I J, 3 ) « 0 : NEXT : PH « 0 : 
RETURN 

405 J = INTI RNDt I ) * 4 + / > s IF GS ( J, / > = 0 
THEN 405 ELSE STRIGI 0 ) ON 

407 VPOKE 6144 + GS ( J, I ) + 32 * GS I J, 2 ) , 32 : 

IF GS ( J, 2 ) > 0 THEN GS ( J, 2 > = GS ( J, 2 ) - 1 

410 VPOKE 6144 + GS I J , 1 >♦ 32 * GS I J , 2 > , 144 i 

IF GS ( J, 2 > = 0 THEN VPOKE 6144 + GS I J , 1 ) 

, 32 s GS ( J, 1 ) = 0 
415 RETURN 


New Round 


500 

IF VPEEKI 6917 1 <> 

200 THEN 

5<0 



502 

STRIGI 

0 ) OFF : FOR 

T = 1 TO 

1500 

: NEXT 


510 

CLS : 

FUT SPRITE 0, 

I 100, 200 ) : 

PUT SPRITE 

1 , 


I 100, 

200 ) : PRINT 

N 

aLASER 

aBATTLE": 

PRINT : 


PRINT 

: PRINT 





515 

NM = NM - 1 : IF NM 

= 0 THEN 

<00 



520 

PRINT 

" Ai*t*hen*left: a" ; NM 




530 

FOR J 

= 1 TO 2500 : 

NEXT 




535 

FOR J 

= 1 TO 4 i GS 

I J, 1 ) 

= 0 : 

NEXT : PH 

= 0 

550 

GOTO 50 





560 

STRIGI 

0 ) OFF : FOR 

T = I TO 

1500 

: NEXT 


565 

CLS : 

PUT SPRITE 0, 

I 100, 200 ) : 

PUT SPRITE 

1, 


I 100, 

200 ) : PRINT 

N 

aaLASERaBATTLE”: 

PRINT 


PRINT 

: PRINT 





570 

PRINT 

"YOURaPOWERaPLANTaHASaBEENa”: 

PRINT "DESTROYED 


PRINT 

: PRINT : GOTO 

515 





Game Over 


600 PRINT : PRINT : PRINT 

610 PRINT "iimYouriscoreAMas"; gg 

620 IF INKEY* = " THEN END ELSE <20 


Update Score 


1000 FOR I = 1 TO 23 : PRINT : NEXT : PRINT "SCORE: "; 

SC 5 CHR*I 11 ) j 
1010 RETURN 
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Sprite Data 


10000 

DATA 

24, 

60, 

24 

, 60, 

24, 

52, 

122, 

255 

10010 

DATA 

15, 

16, 

32 

, 32, 

99, 

198, 

203, 

254, 255, 207, 


199, 

99, 

33, 

48 

, 16, 

15, 

240, 

8, 4 

, 4, 198, 99, 


211, 

127, 

, 255, 

243, 

227, 

198, 

132, 

12, 8, 240 


Machine-Code Data 


10100 DATA 42, 88, 234, 58, 87, 234, 79, 205, 44, 235, 
17, 32, 0, 25, 237, 91, 90, 234, 124, 186, 194, 
67, 235, 125, 187, 194, 67, 235, 201 


Character Data 


10200 

DATA 

90 

165 

, 90, 165, 90, 165, 

66, 129 

10202 

DATA 

24 

12 6 

, 213, 171, 255, 66 

, 60, 24 

10204 

DATA 

24 

2*. 

24, 24, 24, 24, 24 

, 24 

10206 

DATA 

24 

36, 

90, 165, 219, 165, 

219, 255 

10208 

DATA 

2, 

144, 

4, 17, 64, 4, 161, 

8 


ChexSum Table 


5 

= 1217 

78 

= 350 

197 

= 

3325 

10 

* 0 

80 

= 1663 

200 

= 

13212 

11 

= 0 

90 

= 449 

202 

= 

4889 

12 

= 0 

150 

= 3068 

205 

= 

2819 

15 

= 4011 

155 

= 3679 

210 

= 

883 

20 

= 3483 

156 

= 935 

220 

= 

1475 

25 

= 10365 

157 

= 4301 

221 

= 

9526 

27 

= 3640 

160 

= 1883 

225 

= 

1474 

30 

= 3648 

162 

= 5524 

226 

= 

9512 

35 

= 5847 

163 

= 1523 

230 

= 

1473 

40 

= 4677 

165 

= 7655 

231 

= 

9520 

50 

= 1145 

170 

= 2535 

235 

= 

1488 

52 

= 2806 

175 

= 986 

236 

= 

9526 

55 

= 4952 

177 

> 1036 

240 

= 

4633 

57 

= 2901 

180 

= 883 

242 

= 

3360 

60 

= 3460 

190 

= 5101 

243 

= 

3549 

65 

= 3195 

191 

= 2077 

244 

= 

3625 

67 

= 410 

192 

= 1302 

246 

= 

3305 

70 

= 2408 

193 

= 7013 

248 

= 

143 

75 

= 890 

195 

= 4348 

250 

= 

1914 

77 

= 2213 

196 

= 3156 

253 

= 

1329 
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255 

= 

6489 

330 

= 

1012 

550 

= 443 

260 

= 

3902 

340 

= 

143 

560 

= 2018 

265 

= 

5858 

350 

= 

5156 

565 

= 5040 

270 

= 

143 

355 

= 

2966 

570 

= 4811 

260 

= 

1195 

360 

= 

143 

600 

= 561 

282 

= 

6327 

400 

= 

6530 

610 

= 2142 

284 

= 

3313 

402 

= 

2373 

620 

= 1416 

286 

= 

3751 

405 

= 

4230 

1000 

= 2916 

287 

= 

1301 

407 

= 

4875 

1010 

= 143 

290 

= 

3018 

410 

= 

5668 

10000 

= 1529 

291 

= 

7810 

415 

= 

143 

10010 

= 9019 

292 

= 

1195 

500 

= 

1724 

10100 

= 8191 

293 

= 

4888 

502 

= 

2018 

10200 

= 1634 

294 

= 

1399 

510 

= 

4972 

10202 

= 1649 

299 

= 

883 

515 

= 

1787 

10204 

■ 1404 

300 

= 

1335 

520 

= 

1528 

10206 

■ 1689 

310 

= 

3793 

530 

= 

1123 

10209 

= 1275 

320 

= 

5613 

535 

= 

2158 

Total= 

368357 


Sprite Shapes 



LASER MOTHER SHIP 
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Treasure Trek 




classification: Parlor Game COLOUR ILLUSTRATION obc 

Race to reach the diamonds before your opponent, gathering 
rubies, emeralds and opals along the way. It is often better to 
head for the rubies however, as tactics are the best way to win this 
game! 

Scoring. 

Diamonds 1000 
Rubies 750 

Emeralds 500 
Opals 250 

Snake -100 
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PROGRAMMING SUGGESTIONS 

There are two main tactics in this game: going straight for the 
diamonds or heading for a corner to pounce on some rubies. By 
rearranging the screen and adding some different gemstones, 
you could increase the options for tactical playing. This would not 
be hard to do, as the arrangement of the screen only affects the 
set-up screen routine in lines 100-195 


PROGRAM 


Variables 

• pp(1) 

Player 1 position 

S(1) 

Player 1 score 

P$(1) 

Player names 

M$(1) 

Messages to players 

CP 

Current player 

CUO) 

Characters under player 
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Listing 


Initialise 


5 COLOR 15, 4, 7 : SCREEN 1, 2 \ KEY OFF 

7 VPOKE 8710, 180 : VPOKE 8711, 36 : VPOKE 8212, 137 : 

VPOKE 8713, 20 

10 FOR I = 1 TO 8 : READ Q : AT = AT + CHRT ( Q ) : 

NEXT : SPRITE*( 0 ) = AT : SPRITETI 1 ) = A* 

15 FOR I = 1072 TO 1079 : READ Q : VPOKE I, Q : NEXT : 

FOR I = 1152 TO 1344 STEP 64 s FOR J = 0 TO 7 : 

READ Q : VPOKE I + J, Q : NEXT : NEXT : FOR I = 

1112 TO 1143 : READ 0 : VPOKE I, Q : NEXT 

20 PRINT "aaaaaaaaTREASUREaTREK": PRINT i PRINT s PRINT : 
PRINT 

25 PRINT "iiGemmiiinVal ue» (Mi 11 ions)" j : PRINT "aa - aa 

. ____ N , 

4 A 4 A A A » 

30 PRINT ! PRINT : PRINT "opals" TAB! 10 ) CHRTI 144 ) 

TAB! 19 ) "250" 

35 PRINT : PRINT "emeralds" TAB! 10 ) CHRTI 152 ) TAB! 

19 ) "500" 

40 PRINT : PRINT "rubies" TAB! 10 ) CHRTI 160 ) TAB! 19) 
"750" 

45 PRINT : PRINT "diamond" TAB! 10 ) CHRT ( 139 ) CHRTI 
140 ) T AB < 19 ) " 1000"! PRINT TAB! 10 ) CHRTI 141 ) 

CHRT( 142 ) 

47 PRINT : PRINT "snake" TAB! 10 ) CHRT ( 168 ) TAB! 18) 

“- A 100" 

50 PRINT i PRINT : PT ( 1 ) w "Meathead": INPUT "PlayerAl"; 
PT ( I ) ! PRINT : PT ( 2 > = "Compost"! INPUT 
"PIayer a2"; PT ( 2 ) 

55 IF LEN( PT ( 2 ) ) > 9 OR LENI PT ( 1 ) ) > 9 THEN 
PRINT "TOOaLONG": GOTO 50 ELSE PRINT i PRINT "OK!a" 

PT ( 1 ) "AandA"P» I 2 ) 

57 FOR I = 1 TO 20 i PRINT i NEXT : PRINT "aaaaaaaaaHI t A a 
Key" 

60 IF INKEYT = THEN D = RNDI 1 ) i GOTO 60 


Set Up Screen 


100 CLS ! VPOKE 65 11, 13 9 ! VPOKE 6512, 140 ! VPOKE 
6543, 141 i VPOKE 6544, 142 

105 FOR 1 = 6241 TO 6244 : VPOKE I; 134 ! NEXT : FOR 

I = 6267 TO 6270 : VPOKE I, 134 : NEXT : VPOKE 6273, 
134 i FOR I = 6276 TO 6287 : VPOKE I, 134 : NEXT ! 
FOR I = 6289 TO 6299 : VPOKE I, 134 i NEXT ! VPOKE 
6302, 134 
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110 

VPOKE 

6305,- 

134 : 

VPOKE 

6308, 

134 : 

VPOKE 

6317, 


134 : 

VPOKE 

6319, 

134 : 

VPOKE 

6321 , 

134 : 

VPOKE 


6323, 

VPOKE 

134 : 
6334, 

VPOKE 

134 

6323, 

134 : 

VPOKE 

6331 , 

134 ! 

115 

VPOKE 

6337 , 

134 : 

VPOKE 

6340, 

134 ! 

VPOKE 

6341 , 


134 : 

VPOKE 

63 42, 

134 : 

VPOKE 

6347 , 

134 : 

VPOKE 


6 348 , 

134 : 

VPOKE 

6349 , 

134 : 

VPOKE 

635 1 , 

134 : 


VPOKE 

6352, 

134 : 

VPOKE 

6353 , 

134 : 

VPOKE 

6355, 


134 : 

6 363 , 

VPOKE 
134 : 

6361 , 
VPOKE 

134 : 
6366, 

VPOKE 

134 

6362, 

134 : 

VPOKE 

120 

VPOKE 

6369 , 

134 : 

VPOKE 

6374, 

134 : 

VPOKE 

6379 , 


134 : 

VPOKE 

6384, 

134 : 

VPOKE 

6387, 

134 : 

VPOKE 


6388 , 
VPOKE 

134 : 
6398, 

VPOKE 

134 

6389 , 

134 : 

VPOKE 

6 393 , 

134 : 

125 

VPOKE 

6401 , 

134 : 

FOR I 

= 6404 

TO 6411 : VPOKE I, 


134 : 

NEXT : 

VPOKE 

: 6414 

, 134 : 

VPOKE 

! 6415, 

134 : 


VPOKE 
134 : 

6416, 

VPOKE 

134 : 
6430, 

VPOKE 

134 

6421 , 

134 : 

VPOKE 

6425 , 

130 

FOR I 

= 6433 

TO 6436 : < 

1P0KE I 

, 134 

: NEXT 

: VPOKE 


6440, 

134 : 

VPOKE 

6446 , 

134 : 

FOR 1 

= 6453 

TO 6459 


VPOKE I, 134 s NEXT : VPOKE 6462, 134 
135 VPOKE 6466, 134 : FOR I = 6468 TO 6474 : VPOKE I, 

134 : NEXT : FOR I = 6478 TO 6483 I VPOKE I, 134 : 
NEXT : VPOKE 6487, 134 : FOR I = 6491 TO 6494 : 

VPOKE I, 134 i NEXT 

140 VPOKE 6498, 134 : VPOKE 6501, 134 t VPOKE 6506, 

134 : VPOKE 6507, 134 : VPOKE 6500, 134 : VPOKE 

6510, 134 : VPOKE 65 13, 134 : VPOKE 6515, 134 : 

FOR 1 = 6517 TO 6523 : VPOKE I, 134 : NEXT : VPOKE 
6525, 134 

145 VPOKE 6530, 134 : FOR I = 6532 10 6538 : VKUKt l, 

134 : NEXT : VPOKE 6540, 134 : VPOKE 6542, 134 s 

VPOKE 6545, 134 : VPOKE 6547, 134 : VPOKE 6540, 

134 : VPOKE 6549, 134 : VPOKE 6554, 134 s VPOKE 

6557, 134 

150 VPOKE 6562, 134 : VPOKE 6563, 134 : VPOKE 6564, 

134 : VPOKE 6568, 134 : FOR 1 = 6572 TO 6577 ! VPOKE 
I, 134 : NEXT : FOR I = 6581 TO 6587 : VPOKE 1, 

134 : NEXT : VPOKE 6589, 134 
155 VPOKE 6594, 134 : FOR 1 = 6596 TO 6602 : VPOKE 1, 

134 ! NEXT : VPOKE 6609, 134 : VPOKE 6615, 134 I 

VPOKE 6619, 134 : VPOKE 6620, 134 : VPOKE 6621, 134 

160 VPOKE 6626, 134 : VPOKE 6628, 134 : VPOKE 6631, 

134 : VPOKE 6634, 134 : VPOKE 6635, 134 : VPOKE 

6636, 134 : VPOKE 6639, 134 s VPOKE 6640, 134 : 

VPOKE 6641, 134 : FOR I = 6644 TO 6651 : VPOKE I, 

134 : NEXT : VPOKE 6653, 134 
165 VPOKE 6658, 134 : VPOKE 6660, 134 : VPOKE 6663, 

134 : VPOKE 6668, 134 i VPOKE 6671, 134 : VPOKE 
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6676, 

134 i 

VPOKE 

<<88, 

134 s 

VPOKE 

6683, 

134 : 


VPOKE 

<<85, 

134 






170 

FOR I 

= <<89 

TO <<92 : 

VPOKE I 

, 134 

: NEXT 

l VPOKE 


<<95, 

134 : 

VPOKE 

6696, 

134 i 

VPOKE 

6697, 

134 : 


VPOKE 

<700, 

134 : 

VPOKE 

<762, 

134 i 

VPOKE 

<703, 


134 i 

VPOKE 

<704, 

134 s 

VPOKE 

< 706 , 

134 : 

VPOKE 


<707, 

13 4 : 

VPOKE 

<788, 

134 s 

VPOKE 

<711, 

134 : 


VPOKE 

<712, 

134 : 

FOR I 

= <715 

TO <718 i VPOKE I, 


134 s 

NEXT 
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VPOKE 

<721, 

134 : 

VPOKE 

<724, 

134 : 

VPOKE 

<729 , 


134 : 

VPOKE 

<732, 

134 : 

VPOKE 

<734, 

134 : 

VPOKE 


67 36, 

1j34 : 

VPOKE 

<738, 

134 i 

VPOKE 

<743, 

134 i 


VPOKE 

6747, 

134 : 

VPOKE 

<750, 

134 



180 

FOR I 

= <753 

TO <7<< ; 

VPOKE I 

, 134 

t NEXT 

l FOR 


I = 6768 TO 

<782 ! 

: VPOKE I, 134 s NEXT 


185 

VPOKE 

<792, 

134 : 

VPOKE 

<797, 

134 : 

VPOKE 

<801, 


134 i 

VPOKE 

6806 , 

134 i 

FOR I 

= <829 

1 TO <833 i VPOKE 


I, 134 

i : NEXT 






190 

VPOKE 

<241, 

1<0 : 

VPOKE 

<278, 

1<0 : 

FOR I 

= <242 


TO <782 : IF VPEEKI I ) = 134 THEN K = RND( I ) s 

IF K < .85 THEN VPOKE I, 1<8 ELSE IF K < .1 THEN 

VPOKE I, 152 ELSE IF K < .15 THEN VPOKE I, 144 
192 NEXT : VPOKE <538, I<8 s VPOKE <589, 1<8 : VPOKE 
<278, 16 8 i VPOKE <297, 1<B 

195 M* ( 1 ) = " Your »Turn 'nut*: M* ( 2 ) = " PI ease*Hai t ** 
: GOSUB 1800 s CP = 1 : Q = 1 : PUT SPRITE 0, 

( 64, 1<0 ) , 1 s PUT SPRITE 1, ( 176, 1<B ) , 12 i 

CU ( 1 ) = 134 : CU ( 2 ) = 134 i PP ( 1 > = <792 l 

PP I 2 > = <80< 


Editor 


200 X* = INKEY* i C = C + 1 

210 IF C = < THEN Q = 1 - Q : C = 8 

220 IF Q <> 8 THEN 250 

230 Q = 1 : K = VPEEKI PP < CP ) ) s IF K = 32 THEN 

VPOKE PP ( CP ) , CU I CP ) ELSE VPOKE PP ( CP ) , 32 
250 IF X* = "" THEN 206 

260 K = ASCI X* 1 - 27 i IF K < 1 OR K > 4 THEN 286 ELSE 
ON K GOTO 300, 320, 340, 3<0 


Recognise Allowed Moves 


300 IF VPEEKI PP I CP ) + 1 ) = 32 THEN 286 

305 VPOKE PP I CP ) , CU I CP ) s CU I CP ) = VPEEKI 

PP I CP ) + 1 ) : PP ( CP ) = PP I CP ) + 1 8 VPOKE 

<909 + 4 * CP, VPEEKI <909 + 4 « CP 1 + 8 
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310 GOTO 400 

320 IF VPEEK( PP ( CP ) - 1 ) = 32 THEN 200 

325 VPOKE PP ( CP ) , CU ( CP ) : CU < CP > = VPEEKt 

PP ( CP ) - 1 ) : PP ( CP ) = PP ( CP ) - 1 ! VPOKE 

6909 * 4 * CP, VPEEK! 6909 + 4 * CP ) - 0 
330 GOTO 400 

340 IF VPEEK! PP ( CP ) - 32 ) = 32 THEN 200 

345 VPOKE PP ( CP ) , CU ( CP ) : CU ( CP ) = VPEEK! 

PP ( CP ) - 32 ) : PP ( CP ) = PP ( CP ) - 32 : 

VPOKE 6908 + 4 » CP, VPEEK! 6908 + CP » 4 > - 8 
350 GOTO 400 

380 IF VPEEK! PP ( CP ) ♦ 32 ) = 32 THEN 200 

365 VPOKE PP ( CP ) , CU ( CP ) ! CU ( CP ) = VPEEK! 

PP < CP ) + 32 > : PP ( CP ) = PP ( CP ) ♦ 32 s 
VPOKE 6908 + 4 * CP, VPEEK! 6908 + 4 * CP ) + 8 


Check Move 


400 K = CU ! CP ) i IF K = 134 THEN GOSUB 750 ELSE IF 
K = 144 THEN GOSUB 600 ELSE IF K = 152 THEN GOSUB 
650 ELSE IF K = 160 THEN GOSUB 550 ELSE IF K = 168 
THEN GOSUB 700 ELSE GOSUB 900 

401 K = CU ( CP > : ON K GOSUB 750, 600, 650, 550, 700, 

900, 900, 900, 900 

410 IF CP * 1 THEN CP = 2 ELSE CP = 1 

420 Ml ( CP ) = "Your *Turn! mtt" s IF CP = 1 THEN Ml 

( 2 ) = "PI ease*wa11 **a*" ELSE Ml « 1 > = "PIease*Wait* 

aaa" 

425 GOSUB 1000 
490 GOTO 200 


Rubies 


550 Ml ( CP ) = "RUBIES!! !a+*750": S ( CP ) = S ( CP ) 

+ 750 i GOSUB 1000 ! CU ( CP )= 134 : VPOKE PP 
( CP ) , 134 

5B0 PLftY "14s8m30000n4518n4014n45", "14s8*20000n3618n3114n3 
6“! FOR T = 1 TO 1000 s NEXT 

590 RETURN _ 


Opals 


600 Ml ( CP ) = "OPALS! aaa + *250a"< S ! CP ) = S ( CP ) 
+ 250 : GOSUB 1000 : CU ! CP ) = 134 i VPOKE PP 
( CP ) , 134 

630 PLAY "14sl4m3000n45"! FOR T = 1 TO 1000 : NEXT 
640 RETURN 
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w 


650 

680 

690 

700 

730 

740 

750 

755 

760 

765 


900 

910 

920 

930 


980 

990 


Emeralds 


M* ( CP ) = "EMERALDS!*+*500“! S < CP ) = S ( CP ) 

+ 500 i GOSUB 1000 : CU ( CP ) = 134 s VPOKE PP 
( CP ) , 134 

PLAY "14sl4»3000n4012n45"i FOR T = 1 TO 1000 j NEXT 
RETURN 


Snake 


M* ( CP ) = "SNAKE!!***-*100": S ( CP ) = S ( CP ) 

- 100 : GOSUB 1000 s CU ( CP ) = 134 s VPOKE PP 
( CP ) , 134 

PLAY ”164s8m59000n45n46n47n48n49n50n51n51n50n49n48n47n4 
6n45n44n45n46n47n48n49n50n51n50n49n48n47n4<n45n4413n43": 
FOR T = 1 TO 2000 s NEXT 
RETURN 


Player on Normal Square 


IF RND( 1 ) < .7 THEN RETURN 

IF RND( 1 ) < .3 THEN Ml ( CP I = "SILVER!**^0***"r 
S ( CP ) = S ( CP ) ♦ 50 : GOSUB 1000 i PLAY "16sl»777n 

34n50n23", " 12s5n2000n40"i FOR T = 1 TO 1000 : NEXT i 

RETURN 

IF RND ( 1 ) < .5 THEN HI X CP ) = "AMETHYST!*+*20* "i 
S ( CP ) = S ( CP ) + 20 i GOSUB 1000 i PLAY "14sl0«500 

n35n30", "12s1 ml000n20": FOR T = 1 TO 1000 i NEXT • 

RETURN 

M* ( CP ) = "FOOL'S*GOLD*-50"i S ( CP ) = S ( CP ) 

- 50 : GOSUB 1000 i PLAY "11s8m20000n2"s FOR T = 

1 TO 1000 i NEXT : RETURN 


Game Over 


"s2*3000018n37r 


SCREEN 1 : S ( CP ) = S ( CP ) ♦ 1000 
PLAY "I8s2m30000n45n4614n4512n461ln37" 

814n37r211n33" 

IF S ( 1 ) > S ( 2 ) THEN PRINT P* ( 1 ) "*has 4 won"" 
ELSE IF S ( 2 > > S ( 1 ) -THEN PRINT P* ( 2 ) " 4 has**on 
!!" ELSE PRINT "naa*****IT'S*A*TIE" 

PRINT ! PRINT s PRINT : PRINT ■The*scores*are:■s 
PRINT : PRINT P* ( 1 ) , S ( 1 ) s PRINT i PRINT 
P* I 2 ) , S ( 2 ) 

PRINT : PRINT : PRINT 
END 
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Update Message/Score 


1000 PRINT P$ ( 1 ) PRINT "SCORE:"; S ( 1 ) ; TflBt 

12 ) t 1 ) : FOR I = I TO 20 : PRINT : NEXT : 
PRINT P* < 2 ) PRINT "SCORE:"; S ( 2 ) ; TAB( 

12 ) Mt ( 2 ) ; CHR$( 11 ) ; 

1010 RETURN 


Sprite Data 


10000 DATA 24, 60, 126, 126, 60, 36, 66, 129 


Character Data 


10100 

DATA 

255, 2/3 

, 1 71, 213, 171, 213, 

171, 

255 

10102 

DATA 

66, 231, 

66, 0, 0, 66, 231, 66 


10104 

DATA 

32, 112, 

248, 116, 46, 31, 14 

, 4 


10106 

DATA 

60, 126, 

255, 255, 255, 255, 

126, 

60 

10108 

DATA 

2, 7, 12 

, 76, 140, 134, 195, 

126 


10110 

DATA 

1, 7. 

15, 31, 63, 127, 255 



10112 

DATA 

128, 192 

, 224, 240, 248, 252, 

254, 

255 

10114 

DATA 

255, 127 

, 63, 31, 15, 7, 3, 1 



10116 

DATA 

255, 254 

, 252, 248, 240, 224, 

192, 

128 
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ChexSum Tables 


5 

= 1236 

180 

= 3771 

600 

= 

6288 

7 

= 1940 

185 

= 5077 

630 

= 

2562 

113 

= 4362 

190 

= 11107 

640 

= 

143 

15 

= 8894 

192 

= 3109 

650 

= 

6465 

20 

= 2536 

195 

= 14919 

680 

= 

3007 

25 

= 4738 

200 

= 1325 

690 

= 

143 

30 

= 2878 

210 

= 1793 

700 

= 

6124 

35 

= 2982 

220 

= 1220 

730 

= 

12076 

40 

= 2787 

230 

= 4863 

740 

= 

143 

45 

= 5790 

250 

= 1032 

750 

= 

1506 

47 

= 2777 

260 

= 4656 

755 

= 

11737 

50 

= 7165 

300 

= 2084 

760 

= 

11539 

55 

= 7015 

305 

= 8596 

765 

= 

7148 

57 

= 2816 

310 

= 537 

900 

= 

1748 

60 

= 2297 

320 

= 2084 

910 

= 

5112 

100 

= 1772 

325 

= 8598 

920 

= 

8013 

105 

= 5850 

330 

= 537 

930 

= 

4599 

110 

= 6446 

340 

= 2(069 

980 

= 

561 

115 

= 15401 

345 

= 8611 

990 

= 

129 

120 

= 8095 

350 

= 537 

1000 

= 

8401 

125 

= 6994 

360 

= 2069 

1010 

= 

143 

130 

= 5901 

365 

= 8603 

10000 

= 

1570 

135 

= 7883 

400 

= 9663 

10100 

S 

1885 

140 

= 9606 

401 

= 3504 

10102 

= 

1390 

145 

= 10499 

410 

= 1860 

10104 

s 

1535 

150 

= 8947 

420 

= 7514 

10106 

s 

1775 

155 

= 7551 

425 

= 397 

10108 

= * 

1514 

160 

= 12260 

490 

= 593 

10110 

= 

1326 

165 

= 6289 

550 

= 6421 

10112 

* 

1891 

170 

= 15921 

580 

= 5622 

10114 

s 

1343 

175 

= 7800 

590 

= 143 

10116 

= 

1891 


Total= <144129 


Sprite Shapes 
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PLAYER 



Junior Minotaur Mastermind 


gptOUNR I 1 LEVEL 1 


73X830273 9*87 
3T2847X739728 
47X7385*7X738 
5*?961«P7i3782 
67827284X8479 
616888M26*93T 
0 2 6 * 8 2 77815? 

707. SCORE 8 t-ftST SCORE • 


classification Educational Game 

Here is a great educational game that is a simplified version of 
‘Minotuar Mastermind' The secret number is between 10 and 99 
and the clues have been simplified to cater for younger players 
Your score is the sum of the digits that you step on — so the 
lower scores are better. When you reach the exit at the top of the 
maze, you get a chance to guess the secret number. The non¬ 
numeric symbols have different effects when stepped on. 

X Supplies a clue 

? Has random value 

* Randomly alters your score 

You are represented by a flashing point; the controls are: 


<p> - 

Up 

<?:> - 

Down/right 

<0> - 

Up/left 

<@> - 

Right 

<:> - 

Down 

<L> - 

Down/left 

<0> - 

Left 

<T> - 

Trapped 

<-> - 

Up/right 
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PROGRAMMING SUGGESTIONS 

You may wish to modify the difficulty of the game rather than just 
playing at different levels of difficulty. One possibility is to simplify 
the screen grid (lines 100-160) so that there are fewer numbers 
and symbols. 

As with the senior version of this game, you could add more 
clues (lines 650-688) or change existing ones. 


PROGRAM 


Variables 

LD 

Level of difficulty 

R 

Round number 

SN 

Secret number 

D1. D2 

Digits of secret number 

PP 

Player’s position 

M 

Minotaur’s position 

LS. TS 

Last score; total score 

RN. RS 

Random number: random number seed 

CU. CP 

Character under minotaur: player 

PR. PC 

Player’s row: player’s column 

NC 

Number of clues 

T(l) 

Clue 1 used? 

G1.G2 

Digits of player's guess 

MC. MR 

Minotaur's column: minotaur’s row 
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Listing 


Initialise 


5 TM = 1 s INTERVAL ON : ON INTERVAL = IB GOSUB 7 

6 GOTO 16 

7 TM = TM » 2 ! RETURN 

10 KEY OFF : SCREEN 1 t CLS : COLOR 15, 1, 1 : PRINT 

"*JUNIOR*MINOTAURiMASTER-MIND" 

15 PRINT : PRINT : PRINT s PRINT "*LEVEL»OF*DIFFICULTY?t1- 
9) 

20 LD = VAL( INKEY* ) i IF LD < I OR LD > 9 THEN 26 
ELSE PRINT LD 

22 FOR I = 1688 TO 1344 STEP 64 s FOR J = 6 TO 7 : 

READ Q s VPOKE l ♦ J, Q : NEXT i NEXT 

23 VPOKE 8269, 49 i VPOKE 8216, 97 : VPOKE 8211, 177 : 
VPOKE 8212, 145 i VPOKE 8213, 129 

25 FOR I = 1 TO 8 i PRINT s NEXT s PRINT "*»**HIT»ANY*KEY 
TO*START" 

30 IF INKEY* = "" THEN 36 

35 INTERVAL OFF i IF TM > 1666 THEN TM = TM / 3 : 

GOTO 35 

40 TS = 0 : NC « 0 i FOR I = 1 TO 6 : T ( I ) = 6 i 
NEXT : R = 1 t SN ■ I NT( 89 * TM / 1666 + 10 > i 
RS = SN * 160 i D! - I NT( SN / 16 > ! D2 = INTI 
SN - DI » 16 ) 


New Round 


100 CLS ! PP = <799 i M • <<07 

110 FOR I = <33< TO <784 STEP <4 ! FOR J = 3 TO 27 STEP 

2 i GOSUB 900 : K1 ■ I NT( RN # 13 ) : IF K1 < 16 

THEN VPOKE I + J, K1 + 48 : GOTO 130 
115 IF K1 * 10 THEN VPOKE I + J, 144 : GOTO 136 

120 IF K1 » 11 THEN VPOKE I + J, 152 : GOTO 136 

125 VPOKE I ♦ J, 1<0 
130 NEXT s NEXT 

140 VPOKE PP, 48 : LS = 0 : CU = VPEEK t M 1 s VPOKE 
M, 13< i VPOKE <351, 1<8 ; CP = 48 
150 PRINT "*ROUND*#"j R ; "*****LEVEL*"; LD ; CHR*( II ) ; 
160 GOSUB 1066 


Editor 


200 C = 0 : Q = 1 

205 X* = INKEY* : C = C + 1 
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210 

IF C = 7 THEN Q 

= ] 

1 - Q : C = 0 


215 

IF Q O' 0 *THEN 

230 



220 

IF VPEEK( PP ) 

= 255 THEN VPOKE PP, 

CP t 0 = 1 i 


GOTO 230 




225 

VPOKE PP, 255 : 

Q = 

= 1 


230 

IF Xt = "" THEN 

205 


240 

GOSUB 950 




242 

IF VPEEK( PP ) 

= 255 THEN VPOKE PP, 

CP 

245 

IF Xt = "p" OR 

Xt 

» "P" THEN 300 


250 

IF X* = "D* OR 

X* 

= "0" THEN 310 


255 

IF X* = OR 

Xt 

= *•■ THEN 320 


260 

IF X* = V OR 

X* 

= *+" THEN 330 


265 

IF X* = OR 

xt 

= "=" THEN 340 


270 

IF X* = "0" THEN 350 


275 

IF Xt = "1" OR 

Xt ’ 

= “L” THEN 360 


280 

IF Xt = OR 

xt ■ 

= "*” THEN 370 


285 

IF X* = "t" OR 

Xt ’ 

= "T" THEN 380 


290 

GOTO 205 







Recognise Allowed Moves 

300 

IF VPEEK! PP - 

64 

) = 32 THEN 205 


302 

LS = VPEEK! PP 

) - 

48 


304 

VPOKE PP, 32 s 

PP 

= PP - 64 


305 

GOTO 400 




310 

IF VPEEK! PP - 

2 ) 

= 32 THEN 205 


312 

LS = VPEEK! PP 

) - 

48 


314 

VPOKE PP, 32 s 

PP 

= PP - 2 


315 

GOTO 400 




320 

IF VPEEK! PP + 

2 ) 

= 32 THEN 205 


322 

LS * VPEEK! PP. 

) - 

48 


324 

VPOKE PP, 32 s 

PP 

= PP ♦ 2 


323 

GOTO 400 




330 

IF VPEEK! PP + 

64 

) = 32 THEN 205 


332 

LS * VPEEK! PP 

) - 

48 


334 

VPOKE PP, 32 : 

PP 

= PP + 64 


335 

GOTO 400 




340 

IF VPEEK! PP - 

62 

) = 32 THEN 205 


342 

LS - VPEEK! PP 

) - 

48 


344 

VPOKE PP, 32 : 

PP 

= PP - 62 


345 

60T0 400 




350 

IF VPEEK! PP - 

66 

) = 32 THEN 205 


352 

LS = VPEEK! PP 

) - 

48 


354 

VPOKE PP, 32 ! 

PP 

= PP - 66 


355 

GOTO 400 




360 

IF VPEEK! PP + 

62 

) = 32 THEN 205 


362 

LS = VPEEK! PP 

> - 

48 


364 

VPOKE PP, 32 : 

PP 

= PP + 62 


365 

GOTO 400 
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32 THEN 205 


370 IF VPEEK( PP + 66 > = 

372 LS = VPEEK( PP ) - 48 

374 VPDKE PP, 32 : PP = PP + 66 

375 GOTO 400 

380 PR = I NT < PP / 32 ) : PC = PP - PR * 32 : GOSUB 
500 : IF PP <> M THEN 380 
385 GOTO 800 



400 

CP 

= VPEEK! 

PP > 

! PR = INT! PP / 

3? ) : 1 

PC = PP 


- PR * 32 





402 

IF! 

LS > 9 ) 

OR! 

LS < 0 ) THEN LS 

= 0 


405 

K1 

= VPEEK! 

PP ) 

: IF Kl = 152 THEN GOSUB 

600 

410 

IF 

K1 = 144 

THEN 

GOSUB 650 



415 

IF 

KI = 160 

THEN 

GOSUB 750 



420 

IF 

K1 = 168 

THEN 

2000 



422 

K1 

= VPEEK! 

PP > 

- 48 s IF Kl < 0 

OR Kl > 

9 THEN 

425 

IF 

LS + Kl > 

« 10 - LD THEN GOSUB 

500 


430 

TS 

= TS + Kl 

: GOSUB 1000 



435 

IF 

PP = M THEN 800 



440 

GOTO 200 







500 VPOKE 8198, 31 i MR « INT( M / 32 ) j MC = M - MR • 32 

50? IF MC <> PC THFN 508 

504 IF MR > PRT HENMR - MR - 2 : GOTO 540 

506 MR = MR + 2 : GOTO 540 

508 IF MR <> PRT HEN515 

510 IF MC > PC THEN MC - MC - 2 s GOTO 540 

512 MC = MC + 2 : GOTO 540 

515 IF M > PP THEN 522 

517 IF MC < PC THEN MC ■ MC + 2 : GOTO 540 

520 MC = MC - 2 : GOTO 540 

522 MR « MR - 2 

540 K = 3? » MR + MC : VPOKE 8198, 241 i IF VPEEK! K ) 

= 131 THEN RETURN 
542 VPOKE M, CU 
544 M = K : CU = VPEEK! M ) 

546 VPOKE M, 136 
550 PLAY "n2" 

570 RETURN 



600 GOSUB 900 : I = INT! RN » 10 > ! VPOKE PP, I + 48 
610 CP = I + 48 ! RETURN 
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Player On (X) 


650 VPOKE PP, 48 

652 IF NC > = 6 THEN BEEP : GOTO 670 

654 GOSUB 900 : K2 = I NT( RN * 6 + 1 ) : IF T ( K2 ) 

= 1 THEN 654 

656 T ( K2 ) = I s NC = NC + 1 s BEEP 

658 ON K2 GOTO 660, 665, 670, 675, 680, 685 

660 PRINT i PRINT : PRINT ■*First*Digit*p1us*Second": 
PRINT "*DigitlEqual sa" > 

662 PRINT DI + D2 : PRINT CHR*( 11 ) ; : RETURN 

665 PRINT ! PRINT : PRINT "*SecretANumber*is*" j 

666 IF SN > 50 THEN PRINT "GreaterAAAAthanA50": GOTO 668 

667 PRINT "LesSAthanAAor*equalAtOA50" 

668 PRINT CHR$( 71);: RETURN 

670 GOSUB 900 : K = I NT( RN « 15 ) + SN : J = K - 15 : 

IF J < 0 THEN J = 0 

672 IF K > 99 THEN K = 99 

673 PRINT 1 PRINT : PRINT "ANumber 4 iSABetween"; J : 

PRINT K Aand"; K 

674 PRINT CHf?♦ ( 11 ) j : RETURN 

675 PRINT : PRINT : PRINT " 4 First aDI git A is a" j 

676 IF DI < 5 THEN PRINT "LessAthanA5 "1 GOTO 678 

677 PRINT "GreaterAthanAOrAEqualAtOAS* 

678 PRINT CHR4I II ) j : RETURN 

680 PRINT : PRINT ! PRINT *ASecondADigit ti sa" I 

681 IF D2 < 5 THEN PRINT "LessAthanAS": GOTO 68J 

682 PRINT "Greater a thanAorAEqualAt0 a5" 

683 PRINT CHR$( II ) j : RETURN 

685 PRINT : PRINT : PRINT " A Fi rst A Digit At i nesASecond"« 
PRINT "ADigitAisA"; 

688 PRINT DI * D2 ; CHR*< II I) 1 RETURN 


Player On (*) 


750 

VPOKE PP, 

48 




752 

IF TS < 11 

THEN 

RETURN 


754 

GOSUB 900 

! I = 

1 NT ( 

RN • 100 ) > IF 

I > 50 THEN 


TS = TS - 

10 : 

PLAY 

"L64N45N46N50N48 

RETURN 

756 

IF I < 10 

THEN 

TS = 

TS ♦ 50 1 PLAY " 

L32N10N8N6N4N10N8N6 


N4": RETURN 




760 

TS = TS + 

10 : 

PLAY 

"L64N10N8N6N4": 

RETURN 


Game Over 


800 CIS : IF M = PP THEN 820 
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805 FOR I = J TO 15 : PRINT "aaaaCONGRATULATIONS 1 ": 

NEXT : PRINT 

010 PRINT "YOUaHAVEaBEATENaTHEaMINOTAUR!": PRINT "YOURaSCOR 
EaISa"; TS : PRINT 

815 PRINT “NUMBERaOFaROUNDS:R j : GOTO 840 
820 FOR I = 1 TO 18 ; PRINT " aaaaaaM INOTAURaWINS 1 ": 

NEXT : PRINT 

825 PRINT "TheAsecretAnumberAwasA"! SN 

840 PRINT : PRINT ”HITaANYaKEYaFORaANOTHER*GAME■ 

845 XT = INKEY* : IF X* = "" THEN 845 

846 RUN 


Random Number 


900 RN = ( 9999 * RN + RS ) MOD 5997! : RN = RN / 5997! 

910 IF RN < .2 THEN RS = RN * 10000 «■ 1 
920 RETURN 


Blank Message 


950 FOR I = 6209 TO 627/ : VPOKE I, 32 : NEXT 
970 RETURN 


1000 FOR I = 1 TO 73 i 
TS ; TAB( Z5 1 | 
1010 RETURN 


Guess Secret Number 


2000 PRINT : PRINT : PRINT ”aGUESSaATaTHEaSECRETaNUMBER": 
PRINT "a"; 

2005 INPUT "ANDaHITa(RETURN)” j K* 

2010 I * VAL( K* ) : IF I = SN THEN 800 

2015 G/ = I NT < I / 10 > : G2 = I - GI * 10 

2020 CLS : PRINT : IF Dl = G 1 THEN PRINT *FirstADigitACorrec 
t”: PRINT 

2025 IF D2 = G? THEN PRINT " SecondADi git aCot rect": PRINT 

2035 IF 0/ <> GI AND D2 <> G2 THEN PRINT "NoaDi git SaCoit ect" 

2040 FOR T = / TO 2000 i NEXT 

2045 R = R + 1 \ GOTO 100 
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Update Score 


PRINT : NEXT : PRINT "TOT.aSCORE” 
"LASTaSCORE"; LS j CHR*( 11 ) j 


"Jt'mvnMHMnp 

















Character Data 


10000 


DATA 16 5, 126, 219 

, 126, 102, 126, 82, 60 




100192 


DATA tU, 136, 80, 

32, 

80, 136, 136, 0 




10004 


DATA 112, 136, 8, 

16, 

32, 0, 32, 0 




10006 


DATA 32, 168, 112, 

32, 

112, 168, 32, 0 




10008 


DATA 16, 56, 124, 

254, 

124, 56, 16, 0 




ChexSum Table 






5 

= 

3376 

275 

= 1886 

380 

a 

4638 

6 

= 

403 

280 

= 1802 

385 

a 

391 

7 

= 

1035 

285 

= 1914 

400 

= 

3919 

10 

= 

4336 

290 

= 594 

402 

= 

2128 

15 

S 

20B7 

300 

= 1856 

405 

= 

2306 

20 

s 

3348 

302 

= 1398 

410 

= 

1197 

22 

s 

3640 

304 

= 1427 

415 

= 

1313 

23 

s 

2630 

305 

= 537 

420 

a 

1162 

25 

3 

3398 

310 

= 1792 

422 

a 

3290 

30 

a 

969 

312 

= 1398 

425 

a 

2245 

35 

3 

3770 

314 

= 1365 

430 

a 

1429 

40 

= 

10909 

315 

= 537 

435 

a 

868 

100 

= 

653 

320 

= 1792 

440 

= 

593 

110 

= 

7694 

322 

= 1398 

500 

= 

2962 

115 

a 

2238 

324 

= 1364 

502 

= 

1423 

120 

X 

2239 

325 

= 537 

504 

a 

2345 

125 

s 

822 

330 

= 1856 

506 

= 

1325 

130 

a 

320 

332 

= 1398 

508 

a 

1212 

140 

a 

4133 

334 

= 1426 

510 

a 

2283 

150 

s 

2831 

335 

= 537 

512 

a 

1294 

160 

a 

397 

340 

= 1B46 

515 

a 

884 

200 

a 

734 

342 

= 1398 

517 

= 

2287 

205 

a 

1325 

344 

= 1411 

520 

a 

1293 

210 

a 

1790 

345 

= 537 

522 

a 

B31 

215 

a 

1208 

350 

= 1858 

540 

a 

3410 

220 

a 

3347 

352 

= 1390 

542 

a 

481 

225 

= 

1095 

354 

= 1427 

544 

a 

1424 

230 

= 

1036 

355 

= 537 

546 

a 

481 

240 

a 

345 

360 

= 1846 

550 

a 

431 

242 

a 

2143 

362 

= 1398 

570 

a 

143 

245 

a 

1850 

364 

= 1410 

600 

a 

2558 

250 

a 

1823 

in 

-o 

K) 

= 537 

610 

a 

981 

255 

a 

1038 

370 

= 1058 

650 

a 

477 

260 

a 

1779 

372 

= 1398 

652 

a 

1831 

265 

a 

1771 

374 

= 1426 

654 

a 

3251 

270 

a 

977 

375 

= 537 

656 

a 

1724 
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658 = 2170 

660 = 4907 

662 = 1663 

665 = 2493 

666 = 3475 

667 = 2592 

668 = 932 

670 = 4110 

672 = 1233 

673 = 3488 

674 = 932 

675 = 2245 

676 = 2777 

677 = 2816 

678 = 932 

600 = 2350 

681 = 2773 

682 = 2816 

683 = 932 


685 = 4543 

680 = 1514 

750 = 477 

752 = 947 

754 = 5284 

756 = 3807 

760 = 2259 

B00 = 1151 

805 = 30 81 

810 = 4837 

815 = 2371 

820 = 2991 

825 = 2729 

840 = 2697 

845 = 1602 

846 = 139 

900 = 3412 

910 = 2090 

920 = 143 


950 = 1584 

970 = 143 

1000 = 5164 

1010 = 143 

2000 = 3295 

2005 = 1608 

2010 = 1876 

2015 = 2414 

2020 = 3830 

2025 = 3499 

2035 = 4167 

2040 = 1157 

2045 = 1250 

10000 = 1 770 
10002 = 1572 
10004 = 1340 
10006 = 1567 
10008 = 1517 

Total= 323177 


187 





Thirty-One 



classification: Parlor Game 

Inflation comes even to Blackjack in this game where the MSX 
challenges you to a game of cards! Add the value of your cards — 
if you are closer to 31 than the MSX then you win! Of course, a 
hand over 31 costs you (or the MSX) the game. 

The card values are: 


King 

13 

Queen 

12 

Jack 

11 

Ace 

*. 1 

Others 

Face value 
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programming suggestions 

The MSX has simple tactics — it stops when it reaches 25. If you 
have mastered this game, then make the MSX use better tactics, 
such as remembering what cards have been used and 
calculating probabilities for the next card. You could even let the 
MSX cheat a bit by peeking at the next card once in a while (see 
lines 300-310)! 

PROGRAM 

Variables 


M1$, M2$ 

Messages 

CA(I, J) 

Card attribute table 

DK(I) 

Deck of cards 

NC 

Next card on deck 

MB 

Money bet this hand 

AB 

Account balance 

PP 

Player’s points 

CP 

Computer’s points 

LC 

Location of card 

CD 

Card to draw at LC 

CC 

Number of computer’s cards 

PC 

Number of player’s cards 
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WWWlTTTTTiftl 



Listing 


Initialise 


10 KEY OFF : SCREEN 1,2: COLOR 15, 4, 7 

15 FOR I = 1 TO 32 : READ Q : A* = A* + CHR*! 0 > : 

NEXT : SPRITE*! 0 ) = A* : A* = "" 

20 FOR I = 1 TO 32 : READ Q : A* = A* ♦ CHR*< Q ) : 

NEXT : SPRITE*( 1 ) = A* : A* = "" 

25 FOR I = 1 TO 32 : READ Q : A* = A* + CHR*( Q ) : 

NEXT : SPRITE*! 2 ) = A* : A* = 

30 FOR I = 1072 TO 1143 : READ Q : VPOKE I, Q : NEXT 

35 PRINT : PRINT : PRINT "»********THIRTY-ONE“: VPOKE 

6153, 134 : FOR I = 6154 TO 6165 : VPOKE I, 135 : 

NEXT : VPOKE 6166, 136 : VPOKE 6198, 137 : VPOKE 
6230, 137 : VPOKE 6185, 141 : VPOKE 6217, 141 : 

FOR I « 6282 TO 6293 : VPOKE I, 139 : NEXT 

40 VPOKE 6262, 137 : VPOKE 6294, 138 : VPOKE 6249, 

Ml : VPOKE 6281 , 140 

45 FOR I = 384 TO 463 : K = VPEEK ( I ) l VPOKE I, INT! 

K / 4 ) : NEXT 

50 FOR I = 1 TO 6 : PRINT : NEXT : AB = 100 : PRINT 
"You*HaveA*100*to*St****artiWith": PRINT : PRINT 

"AAAAAAAAAaHit»aiKey" 

55 IF INKEY* = "* THEN D = RND( 1 ) : GOTO 55 
60 CIS : DIH CA ( 52, 2 ) , DK ( 52 ) 

65 FOR I = 1 TO 4 : FOR J = 1 TO 13 : K = ( I - 1 > 

• 13 + J i CA I K, 1 ) = J : CA ( K, 2 ) = I i NEXT : 

NEXT : FOR I = 1 TO 52 : DK ( I ) = I : NEXT 

75 AB « 100 : NC = 1 

00 PRINT TAB! 10 ) "YouraHand" 

90 PRINT CHR*( 11 ) ; i Ml* = "PI easeawait*foradeckatoabe 
M2* = "shuffled.aaaaaaaaaaaaaaaa": GOSUB 1000 t 

GOSUB 1100 : GOSUB 1200 : IF NC = 1 THEN GOSUB 400 
95 GOSUB 300 : GOSUB 200 : GOSUB 200 


Control 


100 

IF! 

( ST 

) AND 1 ) 

= 1 

THEN 102 

1 ELSE 

GOSUB 

1 350 


102 

IF 

VPEEK! 

6156 ) = 

77 

THEN 130 

ELSE 

IF! I 

ST ) 

AND 


1 ) 

<> 1 

THEN 110 







105 

FOR 

11 = 

1 TO 5 : 

BEEP 

: PRINT 

CHR* ( 

11 ) 

TAB! 

20 ) 


: FOR 12 = 1 TO 300 : NEXT : PRINT CHR*< 11 ) TAB! 
10 ) "MSXaHanda" CHR*i 11 ) ; : NEXT : FOR I = 6176 

TO 6623 : VPOKE I, 32 : NEXT : FOR I = 0 TO 2 : 

PUT SPRITE I, ( 100, 200 ) : NEXT 

107 FOR II = 1 TO CC : IF 11 < 7 THEN LC = 6179 + 3 
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» II ELSE LC = <278 + 3 * < II - 7 > 

108 CD = CH ( 11 ) : GOSUB 250 : NEXT s FOR I = 1 TO 

15 s PRINT : NEXT i PRINT TAB! 15 ) "Points:"! CP ; 

CHR*( 11 ) ; 

110 IF( ( ST ) AND 1 ) = 1 THEN 130 

120 Ml $ = "YourAnextAcard-AAAAAAAAAAA": M2* = ” aaaaaaaaaaaa 
aaaaaaaaaaaaa" i GOSUB 1000 
125 GOSUB 200 : IF PP > 31 THEN 500 

130 IF( ( ST ) AND 2 ) = 2 THEN 135 ELSE Ml* = "MSXiAnextAC 

ardAAAAAAAAAAA": M2* = "aaaaaaaaaaaaaaaaaaaaaaaaa'i 

GOSUB 1000 ! FOR T « 1 TO 1500 : NEXT : GOSUB 300 : 

IF( CP > 24 AND CP < 32 > THEN ST = ( ( ST ) OR 

2 ) ELSE IF CP > 31 THEN 600 
135 IF ST = 3 THEN 450 
140 GOTO 100 


Deal Player 


200 CD = DK I NC I i NC = NC + 1 

205 PP = PP + CA < CD, 1 ) : GOSUB 1100 : PC «= PC ♦ 1 

210 IF PC < 7 THEN LC = 6179 + 3 » PC ELSE LC = 6278 

+ 3 * ( PC - 7 ) 

215 GOSUB 250 
240 RETURN 


Draw Card On Screen 


250 VPOKE LC, 134 i FOR I = LC + 1 TO LC + 5 : VPOKE 
I, 135 : NEXT : VPOKE LC + 6, 136 : FOR I = LC + 

33 TO LC + 289 STEP 32 : FOR J = 0 TO 4 : VPOKE 
I - 1, 141 : VPOKE I + 5, 137 : VPOKE I + J, 142 : 
NEXT : NEXT 

255 VPOKE LC + 320, 140 : FOR I = LC + 321 TO LC ♦ 325 i 

VPOKE I, 139 : NEXT : VPOKE LC ♦ 326, 138 

260 K1 = CA ( CD, 2 ) : IF K1 = 1 THEN K1 = 131 ELSE 

IF K1 - 2 THEN K1 = 129 ELSE IF K1 = 3 THEN K1 = 

128 ELSE K1 = 130 

265 K2 = CA ( CD, 1 ) : ON K2 GOTO 270, 272, 274, 276, 
278, 780, 282, 784, 786, 788, 790, 292, 294 

270 VPOKE LC + 33, 65 : VPOKE LC + 163, K1 : VPOKE LC 
+ 293, 65 : RETURN 

272 VPOKE LC ♦ 33, 50 : VPOKE LC + 67, K1 : VPOKE LC 
+ 259, K1 : VPOKE LC + 293, 50 : RETURN 

274 VPOKE LC + 33, 51 : VPOKE LC + 67, K1 : VPOKE LC 

+ 163, K1 : VPOKE LC + 259, K1 : VPOKE LC + 293, 

51 : RETURN 

276 VPOKE LC + 33, 52 : VPOKE LC + 293, 52 t VPOKE LC 

+ 66, K1 : VPOKE LC + 68, K! : VPOKE LC + 258, K1 : 
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VPOKE LC + 260, K1 : RETURN 

278 VPOKE LC + 33, 53 : VPOKE LC + 293, 53 : VPOKE LC 

+ 6*, K1 ! VPOKE LC + 68, Ki : VPOKE LC + 258, Kl t 

VPOKE LC + 260, Kl ; VPOKE LC 4 163, Kl i RETURN 
280 VPOKE LC + 33, 54 : VPOKE LC + 293, 54 i VPOKE LC 

+ 67, Kl : VPOKE LC + 130, Kl ! VPOKE LC + 132, 

Kl s VPOKE LC 4 194, Kl s VPOKE LC ♦ 196, Kl i VPOKE 
LC + 259, Kl : RETURN 

282 VPOKE LC + 33, 55 : VPOKE LC + 293, 55 : VPOKE LC 

4 67, Kl i VPOKE LC + 130, Kl : VPOKE LC ♦ 132, 

Kl : VPOKE LC + 194, Kl : VPOKE LC + 196, Kl i VPOKE 
LC 4 258,,Kl : VPOKE LC + 260, Kl : RETURN 
284 VPOKE LC + 33, 56 s VPOKE LC + 293, 56 : VPOKE LC 

+ 66, Kl : VPOKE LC + 68, Kl ! VPOKE LC + 130, Kl ! 

VPOKE LC 4 132, Kl ! VPOKE LC + 194, Kl ! VPOKE 
LC + 196, Kl ! VPOKE LC ♦ 258, Kl s VPOKE LC ♦ 260, 
Kl : RETURN 

286 VPOKE LC + 33, 57 i VPOKE LC + 293, 57 i VPOKE LC 

♦ 163, Kl i VPOKE LC + 66, Kl : VPOKE LC ♦ 68, Kl i 
VPOKE LC 4 130, Kl : VPOKE LC + 132, KI i VPOKE 
LC + 194, Kl : VPOKE LC + 196, KI s VPOKE LC + 258, 
Kl i VPOKE LC + 260, Kl : RETURN 
288 VPOKE LC 4 33, 49 ! VPOKE LC + 293, 48 i VPOKE LC 

4 292, 49 : VPOKE LC + 34, 48 : VPOKE LC + 99, Kl « 

VPOKE LC 4 227, Kl : VPOKE LC ♦ 66, KI i VPOKE LC 

+ 68, Kl ! VPOKE LC + 130, Kl s VPOKE LC + 132, 

Kl : VPOKE LC + 194, Kl : VPOKE LC + 196, Kl s VPOKE 
LC 4 258, Kl : VPOKE LC + 260, Kl : RETURN 
290 1 = 8 * I NT( ( LC - 6014 ) / 32 I I J = 8 * < LC 

- 6014 - 32 * 1 ): PUT SPRITE 0, < J 4 4, I 4 4 ) 

i FOR I = LC + 130 TO LC + 194 STEP 32 i FOR J = 

0 TO 2 i VPOKE I + J, 32 : NEXT i NEXT ! VPOKE LC 

+ 33, 74 : VPOKE LC + 293, 74 ! VPOKE LC ♦ 37, Kl i 

VPOKE LC 4 289, Kl i RETURN 

292 1=8* INTI ( LC - 6014 ) / 32 I ! J = 8 * ( LC 

' - 6014 - 32 * I ) s PUT SPRITE 1, ( J 4 4, I * 4 ) 

! FOR I = LC 4 130 TO LC 4 194 STEP 32 s FOR J = 

0 TO 2 : VPOKE I 4 J, 32 ! NEXT ! NEXT ! VPOKE LC 

4 33, 81 : VPOKE LC 4 293, 81 t VPOKE LC 4 37, Kl I 

VPOKE LC 4 289, Kl : RETURN 

294 1=8* INTI ( LC - 6014 ) / 32 ) i J = 8 * I LC 

- 6014 - 32 * I )! PUT SPRITE 2, ( J 4 4, I + 4 ) 
l FOR I = LC 4 130 TO LC 4 194 STEP 32 i FOR J = 

0 TO 2 s VPOKE I 4 J, 32 ! NEXT : NEXT : VPOKE LC 

4 33, 75 : VPOKE LC 4 293, 75 ! VPOKE LC 4 37, Kl ! 

VPOKE LC 4 289, Kl s RETURN 
298 RETURN 
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Deal MSX 


300 CC = CC + 1 

305 CD = DK ( NC ) : NC = NC + 1 : CP = CP + CA ( CD, 

1 ) : CH ( CC ) = CD 

307 IF( ( ST ) AND I ) <> I THEN 310 ELSE IF CC < 7 

THEN LC = 6179 ♦ 3 » CC ELSE LC = 6278 ♦ 3 * ( CC - 7 > 

308 GOSUB 2 50 : FOR I = 1 TO 15 : PRINT : NEXT s PRINT 
TAB! 15 ) "Points:"; CP ; CHR*( II ) ; 

310 RETURN 


Bet 


350 GOSUB 1300 : FOR I = 1 TO 18 : PRINT : NEXT : IF 

MB <> 0 THEN 355 ELSE 340 

355 INPUT "Changeayourabeta(Y/N)X* : IF X* = "n* OR 
X* = "N" THEN 365 ELSE INPUT "HoNa«ucha«ore"j X* : 

IF VAL( X$ ) > 1000 THEN PRINT CHR$ i 11 ) ; : GOTO 

350 ELSE IF VAL( X* ) < 0 THEN PRINT CHR$< 11 ) ; 

: GOTO 350 ELSE MB = MB + VAL< X$ ) : AB = AB - 
VAL( X* ) : GOTO 365 

360 INPUT "What*is»your*initianbet"; X* : IF VAL( X* ) 

> 1000 THEN PRINT CHR$( 11 ) ; : GOTO 350 ELSE MB 
= VAL( X$ ) : AB = AB - VAL( X» ) 

365 IF( ( ST ) AND 1 ) = 0 THEN INPUT "Anotheracarda(Y/N)*| 
X* : IF X* <> "y" AND X$ <> "Y" THEN ST = ( ST ) OR 1 
370 PRINT CHR*( II ) ; : GOSUB 1300 : GOSUB 1200 : RETURN 


Shuffle Deck 


400 FOR I = 1 TO 100 : J = I NT( RND( 1 ) * 52 + 1 > : 

K = INTI RND< 1 ) * 52 + 1 ) ; SNAP DK ( J ) , DK ( K I 
410 NEXT 
440 RETURN 


Show Hands 


450 GOSUB 1300 : FOR I = 1 TO 18 : PRINT : NEXT : PRINT 
"MSXahas"j CP ; "apoints": PRINT : K4 = 31 - CP : 

K5 = 31 - PP : IF K4 = K5 THEN PRINT "It'saaatieI!aNewa 
DECKI": AB = AB + MB : GOSUB 400 : CLS : NC = 1 : 

GOTO 520 

460 FOR T = 1 TO 2000 : NEXT : IF K4 > K5 THEN 600 ELSE 
5 00 
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Player Loses 


500 PLAY ,, m59000sSl<n2r<n3r<n2"8 GOSUB 1300 a PRINT 
CHRtl 11 ) ; : FOR I = 1 TO 17 ! -PRINT : NEXT : 

PRINT "You»Have*lost*this*hand”: PRINT "Yourapoints"; 
PP ; *,*MSX:"; CP : INPUT ■AnotherahandatY/N)*j X* 
505 IF X* = "Y" OR X* = "y" THEN IF NC < 25 THEN PRINT 
"OKa-asameideck": FOR T = 1 TO 2000 : NEXT ! CLS i 
GOTO 520 ELSE PRINT *OKa-anewadeck”; i FOR T = 1 
TO 2000 : NEXT : CLS ! NC = I s GOTO 520 
510 GOTO 900 

520 MB = 0 s PP = 0 a ST = 0 8 CP = 0 s CC = 0 s PC 

= 0 i FOR I = 0 TO 2 : PUT SPRITE I, ( 100, 200 ) 
i NEXT : GOTO 80 


Player Wins 


600 PLAY “1Isl4m3000n44”, "1Isl4m2000n27": GOSUB 1300 8 

PRINT CHR*( II ) i : FOR I = 1 TO 17 8 PRINT 8 NEXT 8 
PRINT "YouaHaveaNonathisahand": PRINT "Yourapoints"; 
PP i “,aMSXs"j CP : INPUT "Anotherahanda<Y/N)"; X* 
605 IF X* = "Y" OR X* = "y" THEN IF NC < 25 THEN PRINT 
”OKa-asaineadeck"! FOR T = 1 TO 2000 i NEXT : CLS s 
GOTO <20 ELSE PRINT “OKa-anenadeck"; s FOR T = 1 
TO 2000 i NEXT : CLS i NC = 1 i GOTO <20 

610 AB = AB + 2 » MB s GOTO 900 

620 AB = AB ♦ 2 * MB s MB = 0 ! PP = 0 i ST = 0 t CP 

= 0 8 CC = 0 8 PC = 0 8 FOR I = 0 TO 2 8 PUT SPRITE 

I, ( 100, 200 ) s NEXT s GOTO 80 


Game Over 


900 SCREEN Is IF AB < = 0 THEN PRINT ”YOUaONEa*" 5 i 

PRINT USING - AB s PRINT s PRINT "TheaColle 

ctorsawi 11 abea” 8 PRINT " vi.si t-i nqayouashor 11 y. * 8 END 
910 PRINT "Youahaveawona*”; 8 PRINT USING 

AB s PRINT s PRINT "aBetayouacan 1 1adoaitat Hice!!"a END 


1000 FOR I = 1 TO 18 8 
PRINT M2$ ; CHRf( 
1010 RETURN 


Print Message 


PRINT s NEXT 8 PRINT Ml* 8 PRINT a 
11 ) ; 
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Update Points 


1100 FOR I = 1 TO 15 : PRINT : NEXT s PRINT TAB( 15 ) 
"Points: "j PP ; CHR$< 11 ) ; 

1110 RETURN 


Print Account 


1200 FOR I = 1 TO 23 : PRINT : NEXT i PRINT TAB( 4 ) 

"YounAccounUf"j : PRINT USING 'DIMM.**'; AB : 
: PRINT CHR»< 11 ) ; 

1210 RETURN 


Blankout Message Area 


1300 FOR I » 6722 TO <879 j VPOKE I, 32 : NEXT 
1310 RETURN 


Sprite Data 


10000 DATA 255, 127, 42, 31, 19, 29, 9, 1<, 32, 5<, 16, 
28, 16, 16, 17, 14, 255, 2 54, 1 72, 248, 248, 248, 



188, 

136, 116, 

92, 

84, 108, 106, 218, 151 

, 7 

10010 

DATA 

0, 5, 11, 

15, 

31, 62, 60, 121, 120, 

120, 120 


124, 

124, 124, 

62, 

31, 128, 80, 232, 248, 

28, 12, 


1 

39, 7, 7, 

199, 

15, 207, 15, 30, 252 


10020 

DATA 

4, 10, 15 

i 5, 

7, 5, 10, 10, 10, 10, 

21, 21, 


26, 

54, 73, 48 

, 68 

, 170, 254, 84, 252, 72 

, 136, 


152, 

132, 130, 

28, 

8, 24, 8, 8, 240 



Character Data 


10100 

DATA 

0, 0 

, 0, 0, 3, 7, 15, 15 


10102 

DATA 

0, 0 

, 0, 0, 255, 255, 255, 255 


10104 

DATA 

0, 0 

, 0, 0, 192, 224, 240, 240 


10106 

DATA 

240, 

240, 240, 240, 240, 240, 240, 

240 

10108 

DATA 

240, 

240, 224, 192, 0, 0, 0, 0 


10110 

DATA 

255, 

255, 255, 255, 0, 0, 0, 0 


10112 

DATA 

15, 

15, 7, 3, 0, 0, 0, 0 


10114 

DATA 

15, 

cn 

<j\ 

Ol 

»-* 

<-n 


10116 

DATA 

255, 

255, 255, 255, 255, 255, 255, 

255 
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ChexSum Tables 


10 

= 

1215 

250 

= 

15 

= 

3995 

255 

3 

20 

= 

3996 

260 

= 

25 

= 

3997 

265 

= 

30 

= 

1931 

270 

= 

35 

= 

13381 

272 

= 

40 

= 

3258 

274 

= 

45 

3 

3631 

276 

= 

50 

= 

6725 

278 

= 

55 

S 

2290 

280 

= 

60 

B 

1118 

282 

= 

65 

= 

7604 

284 

= 

75 

s 

967 

286 

= 

80 

s 

1428 

288 

= 

90 

B 

10B93 

290 

= 

95 

S 

1071 

292 

= 

100 

B 

1925 

294 

= 

102 

S 

3452 

298 

= 

105 

S 

12244 

300 

= 

107 

B 

5026 

305 

= 

108 

B 

5255 

307 

S 

110 

= 

1417 

308 

3 

120 

= 

5276 

310 

B 

125 

3 

1534 

350 

S 

130 

S 

16298 

355 

S 

135 

B 

1017 

360 

3 

140 

B 

489 

365 

S 

200 

8 

1636 

370 

= 

205 

S 

2593 

400 

= 

210 

B 

3992 

410 

B 

215 

B 

410 

440 

S 

240 

3 

143 

450 

= 


11749 

460 

= 

2802 

4868 

500 

= 

14517 

6598 

505 

= 

12322 

4132 

510 

= 

523 

3099 

520 

= 

6059 

4014 

600 

= 

15852 

5330 

605 

= 

12390 

6514 

610 

= 

1797 

7843 

620 

= 

7659 

9481 

900 

= 

10318 

10867 

910 

= 

6659 

12206 

1000 

= 

2882 

13803 

1010 

= 

143 

18778 

1100 

= 

3524 

17052 

1110 

= 

143 

17067 

1200 

= 

5546 

17053 

1210 

= 

143 

143 

1300 

= 

1682 

785 

1310 

= 

143 

4120 

10000 

= 

9134 

6144 

10010 

= 

8616 

4084 

10020 

= 

7679 

143 

10100 

= 

1033 

3178 

10102 

= 

1384 

21896 

10104 

= 

1375 

9849 

10106 

= 

1864 

7154 

10108 

= 

1403 

1640 

10110 

= 

1416 

6153 

10112 

= 

1025 

131 

10114 

■ 

1404 

143 

10116 

= 

1888 

14191 

Total= 

524162 
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Sprite Shapes 



KING 



JACK 





Minotaur Mastermind 



CLASSIFICATION: Educational Game 

This is an original strategic game which will test the brain power of 
even the most experienced masterminds. The challenge is to 
guess a secret number between 0 and 1000 by working your way 
through a maze of numbers and symbols, without being gobbled 
by the minotaur. 

Your score is the sum of the digits that you step on — so the 
lower scores are better. When you reach the exit at the top of the 
maze, you get a chance to guess the secret number. The non¬ 
numeric symbols have different effects when stepped on. 

X Supplies a clue 

? Has random value 

* Randomly alters your score 

PROGRAMMING SUGGESTIONS 

Minotaur Mastermind could be made into a very complex game 
by adding more clues (lines 650-708) and different symbols. 
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You are represented by a flashing 

<P> - Up 
<0> - Up/left 
<;> - Down 

<0> - Left 
<-> - Up/right 

PROGRAM 

Variables 


LD 

Level of difficulty 

R, LS, TS 

Round number; last score; total score 

SN 

Secret number 

D1, D2, D3 

Digits of secret number 

PP 

Player's position 

M 

Minotaur’s position 

C, Q 

For flashing effect 

TM 

Time 

RN, RS 

Random number; random number seed 

CU, CP 

Character under minotaur; 


character under player 

PR, PC 

Player's row; player's column 

NC 

Number of clues 

T(l) 

Clue 1 used? 

G1, G2, G3 

Digits of player’s guess 

MC, MR 

Minotuar’s column; minotaur’s row 


point; the controls are: 

<:> - Down/right 

<@> - Right 

<L> - Down/left 

<T> - Trapped 
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Listing 


Initialise 


5 TM = 1 : INTERVAL ON : ON INTERVAL = 10 GOSUB 7 

6 GOTO IB 

7 TM = TM » 2 ! RETURN 

IB KEY OFF : SCREEN 1 : CLS : COLOR 15, I, 1 : PRINT 
"aaaaMINOTAURaMASTER-MIND" 

15 PRINT : PRINT : PRINT s PRINT "aLEVELaOFaDIFFICULTY?(1- 

9 ) 

20 LD = VAL ( INKEY* ) : IF LD < 1 OR LD >. 9 THEN 20 
ELSE PRINT LD 

22 FOR I = 1088 TO 1344 STEP 64 : FOR J = 0 TO 7 : 

READ Q s VPOKE l + J, Q : NEXT ! NEXT 

23 VPOKE 8209, 49 : VPOKE 8210, 97 : VPOKE 8211, 177 ! 
VPOKE 8212, 145 ! VPOKE 8213, 129 

25 FOR I = 1 TO 8 : PRINT : NEXT s PRINT ”aaaaaHITaANYaKEY 
aTOaSTART” 

30 IF INKEY* = "" THEN 30 

35 INTERVAL OFF s IF TM > 1000 THEN TM «= TM / 3 : 

GOTO 35 

40 TS = 0 : NC = 0 s FOR I = 1 TO 10 ! T ( I ) = 0 : 

NEXT i R = 1 : SN = INTI TM ) I RS « SN : D1 = INTI 

SN / 100 ) : D2 = INTI I SN - D1 » 100 ) / 10 ) t 

D3 = INTI SN - D1 * 100 - D2 * 10 ) 


New Round 


100 CLS : PP = 6767 : M = 6575 

110 FOR I = <304 TO <752 STEP 32 : FOR J = 1 TO 30 ! 

GOSUB 900 • K1 = INTI RN » 13 ) : IF K1 < 10 THEN 
VPOKE I + J, K1 + 48 i GOTO 130 
115 If K1 = 10 THEN VPOKE I + J, 144 : GOTO 130 

120 IF K1 = 11 THEN VPOKE I + J, 152 ! GOTO 130 

125 VPOKE I + J, 16 0 
130 NEXT : NEXT 

140 VPOKE 6767, 48 : LS = 0 : CU = VPEEKI M ) I VPOKE 
M, 136 s VPOKE <319, 16 8 ! CP = 48 
150 PRINT "aROUND*#"! R j "aaaaLEVELa" i LD ! CHR*I 11 )j 
160 GOSUB 1000 


Editor 


200 C = 0 : Q = 1 

205 X* = INKEY* : C = C + 1 
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210 

IF C = 7 TH&N 

Q = 

1 - Q : C = 0 


215 

IF Q <> 0 THEN 

230 


220 

IF VPEEK( PP ) 

= 255 THEN VPOKE PP, 

CP s Q = 1 i 


GOTO 230 




225 

VPOKE PP, 255 

: Q 

= 1 


230 

IF Xt = "" THEN 205 


240 

GOSUB 950 




242 

IF VPEEK t PP ) 

= 255 THEN VPOKE PP, 

CP 

245 

IF Xt = "p" OR 

Xt 

= "P" THEN 300 


250 

IF Xt = "o" OR 

Xt 

= "0" THEN 310 


255 

IF Xt = OR 

Xt 

= THEN 320 


260 

IF Xt = OR 

Xt 

= "+" THEN 330 


265 

IF Xt = OR 

Xt 

= "=" THEN 340 


270 

IF Xt = "0" THEN 350 


275 

IF Xt = "1" OR 

Xt 

= "L“ THEN 360 


280 

IF Xt = "t" OR 

xt 

= "»'• THEN 370 


285 

IF Xt = "t” OR 

xt 

= "T" THEN 380 


290 

GOTO 205 







Recognise Allowed Moves 

300 

IF VPEEK( PP - 

32 

) = 32 THEN 205 


302 

LS = VPEEK( PP 

) - 

48 


304 

VPOKE PP, 32 : 

PP 

= PP - 32 


305 

GOTO 400 




310 

IF VPEEK( PP - 

1 ) 

= 32 THEN 205 


312 

LS = VPEEK( PP 

> - 

48 


314 

VPOKE PP, 32 s 

PP 

= PP - 1 


315 

GOTO 400 




320 

IF VPEEK( PP ♦ 

1 > 

= 32 THEN 205 


322 

LS = VPEEK( PP 

) - 

48 


324 

VPOKE PP, 32 : 

PP 

= PP + 1 


325 

GOTO 400 




330 

IF VPEEK ( PP ♦ 

32 

) = 32 THEN 205 


332 

LS = VPEEK( PP 

) - 

48 


334 

VPOKE PP, 32 : 

PP 

= PP + 32 


335 

GOTO 400 




340 

IF VPEEK! PP - 

31 

) = 32 THEN 205 


342 

LS = VPEEK! PP 

) - 

48 


344 

VPOKE FP, 32 : 

PP 

= PP - 31 


345 

GOTO 400 




350 

IF VPEEK! PP - 

33 

) = 32 THEN 205 


352 

LS = VPEEK! PP 

) - 

48 


354 

VPOKE PP, 32 : 

PP 

= PP - 33 


355 

GOTO 400 




360 

IF VPEEK! PP + 

31 

> = 32 THEN 205 


362 

LS = VPEEK! PP 

) - 

48 


364 

VPOKE PP, 32 : 

PP 

= PP + 31 


365 

GOTO 400 
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370 

IF VPEEK ( PF 

+ 33 

= 32 THEN 205 


372 

LS = VPEEK( 

PP ) - 

48 


374 

VPOKE PP, 32 

: PP 

= PP + 33 


375 

GOTO 400 




300 

PR = INTI PP 

/ 32 

: PC = PP - PR » 32 ! GOSUB 



500 ! IF PP 

<> M THEN 380 


305 

GOTO 800 







Check Move 

400 

CP = VPEEK! 

PP ) ! 

PR = INT ( PP / 32 ) s PC = PP 


- PR « 32 




402 

IF( LS > 9 ) 

OR! LS < 0 ) THEN LS = 0 


405 

K J = VPEEK! 

PP ) ! 

IF Kl = 152 THEN GOSUB 600 


410 

IF Ki = 144 

THEN GOSUB 650 


415 

IF Kl = 160 

THEN GOSUB 750 


420 

IF Kl = 168 

THEN 2000 


422 

Kl * VPEEK! 

PP > - 

48 s IF Kl < 0 OR Kl > 9 THEN Kl = 0 

425 

IF LS + Kl > 

= 10 

- LD THEN GOSUB 500 


430 

TS = TS ♦ Kl 

: GOSUB 1000 


435 

IF PP = M THEN 800 



440 

GOTO 200 







Move Minotaur 

500 

VPOKE 8198, 

31 i MR = INT( M / 32 ) « MC = M - 

MR * 32 

502 

IF MC <> PC 

THEN 508 


504 

IF MR > PR 

THEN MR = MR - 1 : GOTO 540 


506 

MR = MR + 1 

s GOTO 

540 


500 

IF MR <> PR 

THEN 

515 


510 

IF MC > PC THEN MC 

.= MC - 1 t GOTO 540 


512 

MC = MC + 1 

: GOTO 

540 


515 

IF M > PP THEN 5 22 



517 

IF MC < PC THEN MC 

* MC + 1 i GOTO 540 


520 

MC = MC - 1 

! GOTO 

540 


522 

MR = MR - 1 




540 

K = 32 » MR 

+ MC : 

VPOKE 8198, 241 i IF VPEEK! 

K ) 


= 131 THEN RETURN 



542 

VPOKE M, CU 




544 

M = K s CU = 

VPEEK! M ) 


546 

VPOKE M, 136 



550 

PLAY ”n2" 




570 

RETURN 







Player on (?) 

600 

G0SU8 900 : 

I = INT! RN * 10 ) : VPOKE PP, 1 + 

48 

610 

CP = I + 48 

: RETURN 
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Player on (X) 


650 VPOKE PP, 48 

652 IF NC > = 9 THEN BEEP : GOTO <70 

654 GOS5UB900 : K2 = INTI RN # 9 + 1 ) s IF T ( K2 ) 

= 1 THEN <54 

656 T I K2 ) = / s NC = NC + / : BEEP 

65B ON K2 GOTO <<0, <<5, <70, <75, <00, <85, <90, 

<95, 700 

660 PRINT : PRINT ! PRINT "Sum A of A Digits A of A Secret"i 
PRINT "Number A Equals A "j 

662 PRINT DI + D2 + 03 : PRINT CHRtl 11 ) j : RETURN 

665 PRINT : PRINT : PRINT "Secret A Number A is A "j 

666 IF SN / 2 = INTI SN / 2 ) THEN PRINT "Even”: GOTO 668 

667 PRINT "Odd" 

668 PRINT CHRtl 11 > ; : RETURN 

670 GOSUB 900 : K = INTI RN * 200 ) + SN ! J = K - 200 i 
IF J < 0 THEN J = 0 

672 IF K > 1 000 THEN K = 1000 

673 PRINT i PRINT : PRINT "Number A is A Bet*een"j J i PRINT 
"and"; K 

674 PRINT CHR$< 11 ) ; t RETURN 

675 PRINT s PRINT : Pf^INT "Number A i s A " j 

676 IF SN / 5 = INTI SN / 5 ) THEN PRINT "Divisible"! 

GOTO <78 

677 PRINT "Not A 0ivisib1e" 

670 PRINT "by A 5": PRINT CHRtl 11 ) j i RETURN 

600 L = DI s IF D2 > L THEN L = D2 

681 IF D3 > L THEN L = D3 

682 PRINT ! PRINT : PRINT "Largest A Digit A in A the"s PRINT 
"Secret A Number A is”j L j CHRtl II ) ; : RETURN 

685 PRINT : PRINT : PRINT "First A Digit A in A the A Secret"t 
PRINT "Number A is A "; 

686 IF DI > 5 THEN PRINT "Larger A Than A 5"; GOTO <89 

687 IF DI < 5 THEN PRINT "Less A Than A 5*: GOTO <89 

680 PRINT "EquaI A to A 5" 

689 PRINT CHRtl II ) ; : RETURN 

690 PRINT : PRINT : PRINT "Sum A o4 A First A and A Third" i 

PRINT "Digits A is A "j 

692 PRINT DI ♦ D3 ; CHRtl 11 ) ; : RETURN 

695 PRINT s PRINT : PRINT "One A oI A the A Digits A in A the*■ 

PRINT "Secret A Number A is A "j 

696 GOSUB 900 t K = INTI RN * 3 ) i IF K = 0 AND SN 
> 99 THEN PRINT DI : GOTO <99 

697 IF K = I AND SN > 9 THEN PRINT D2 ! GOTO <99 

698 PRINT D3 

699 PRINT CHRtl 11 ) j : RETURN 
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700 

PRINT 

: PRINT : PRINT 

"Product aoTA theANon- 

■Zero" ( 


PRINT 

"DigitsAis"; 





701 

IF D1 

= 0 AND D2 = 0 

THEN 

PRINT D3 i 

GOTO 

708 

702 

IF D1 

= 0 AND D3 = 0 

THEN 

PRINT D2 s 

GOTO 

708 

703 

IF D1 

= 0 THEN PRINT 

D2 * 

D3 : GOTO 

708 


704 

IF D7 

= 0 AND D3 = 0 

THEN 

PRINT D1 i 

GOTO 

708 

705 

IF 02 

= 0 THEN PRINT 

D1 » 

D3 i GOTO 

708 


706 

IF D3 

= 0 THEN PRINT 

D1 * 

D2 : GOTO 

708 


707 

PRINT 

D1 • D2 * D3 





708 

PRINT 

CHR$ I 11 ) ! : 

RETURN 




Player on (*) 


750 VPOKE PP, 48 

752 IF TS < 11 THEN RETURN 

754 GOSUB 900 : I = INTI RN * /00 ) ! IF I > 50 THEN 
TS = TS - 10 : PLAY "L64N45N46N50N48": RETURN 
756 IF I < 10 THEN TS = TS + 50 ! PLAY "L32N10N8N6N4N10N8N6 
N4"t RETURN 

760 TS = TS 4 10 t PLAY ,, L64N10N8N6N4" i RETURN 


Game Over 


800 CLS : IF M = PP THEN 820 

805 FOR I = 1 TO 17 : FRINT " aaaaaCONGRATULAT IONS! a"! 

NEXT i PRINT 

810 PRINT "YOU*HAVEiBEATEN*THE*MINOTAUR"i PRINT "YOURaSCORE 
aISa") TS 

815 PRINT -INa”) R j "aROUNDS": GOTO 840 

820 FOR I = I TO 17 : PRINT "IIINOTAURaWINSaaMINOTAURaMINS" ! 
NEXT : PRINT 

825 PRINT "TheAsecretAnumberAwasA" | SN 

840 PRINT : PRINT "HITaANYaKEYaFORaANOTHERaGAME" 

845 X$ = INKEYt : IF X$ = ” THEN 845 

846 RUN 


Random Number 


900 RN = ( 999? « RN 4 RS ) NOD 5997! : RN = RN / 5997! 

910 IF RN < .2 THEN RS = RN « 10000 4 1 
920 RETURN 


Blank Out Message 


950 FOR I = 6208 TO 6271 : VPOKE I, 32 : NEXT 
970 RETURN 
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Update Score 


1000 FOR I = / TO 21 ! PRINT : NEXT : PRINT *TOTAL*SCORE" 
TS i TAB( 17 ) ; “LASTiSCORE"j LS ; CHR*( 11 ) } 

1010 RETURN 


Guess Secret Number 


2000 PRINT : PRINT : PRINT "GUESS a AT*THE*SECRETaNUMBER" 

2005 INFUT "ANDaHIT*<RETURN>"; K* 

2010 I = VAL( K* ) : IF I = SN THEN 800 

2015 G1 = INTt I / 100 ) : G2 = INTI < I - G1 * 100 > 

/ 10 ) : G3 = I - G1 « 100 - 62 * 10 

2020 CIS : PRINT : IF DI = G1 THEN PRINT "First*Digit*Correc 

t"s PRINT 

2025 IF D2 = G2 THEN PRINT "SecondiDigit*Correct n : PRINT 

2030 IF D3 = GJ THEN PRINT "Third*Digit*Correct" 

2035 IF Dl <> G1 AND D2 <> G2 AND D3 <> G3 THEN PRINT 
"No*Digits*Correct" 

2040 FOR T = 1 TO 2000 : NEXT 

2045 R = R + 1 : GOTO 100 


Character Data 


10000 

DATA 

16 5, 126 

, 219, 126, 102, 126, 82, <0 

10002 

DATA 

136 

136 

, 80, 32, 80, 136, 136, 0 

10004 

DATA 

112 

136 

, 8, 16, 32, 0, 32, 0 

10006 

DATA 

32, 

168, 

112, 32, 112, 168, 32, 0 

10008 

DATA 

16, 

56, 

124, 254, 124, 56, 16, 0 


ChexSum Table 




5 

= 3376 

100 

= 1401 

215 

= 1209 

6 

= 403 

110 

= 7235 

220 

= 3347 

7 

= 1035 

115 

= 2238 

225 

= 1095 

10 

= 3831 

120 

= 2239 

230 

= 1036 

15 

= 2887 

125 

= 822 

240 

= 345 

20 

= 3348 

130 

= 320 

242 

= 2143 

22 

= 3640 

140 

= 4161 

245 

= 1850 

23 

= 2630 

150 

= 2754 

250 

= 1823 

25 

= 3476 

160 

= 397 

255 

= 1838 

30 

= 969 

200 

= 734 

260 

= 1779 

35 

= 3770 

205 

= 1325 

265 

= 1771 

40 

= 12987 

210 

= 1798 

270 

= 977 
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275 

= 

1886 

500 

280 

= 

1802 

502 

285 

= 

1914 

504 

290 

= 

594 

506 

300 

= 

1780 

508 

302 

= 

1398 

510 

304 

= 

1349 

512 

305 

= 

537 

515 

310 

= 

1791 

517 

312 

= 

1398 

520 

314 

= 

1365 

522 

315 

= 

537 

540 

320 

= 

1791 

542 

322 

= 

1398 

544 

324 

= 

1364 

546 

325 

= 

537 

550 

330 

= 

1780 

570 

332 

S 

1398 

600 

334 

= 

1348 

610 

335 

s 

537 

650 

340 

s 

1814 

652 

342 

s 

1398 

654 

344 

a 

1380 

656 

345 

s 

537 

658 

350 

= 

1824 

660 

352 

= 

1398 

662 

354 

= 

1396 

665 

355 

= 

537 

666 

360 

= 

1814 

667 

362 

= 

1398 

668 

364 

s 

1379 

670 

365 

s 

537 

672 

370 

s 

1824 

673 

372 

= 

1398 

674 

374 

s 

1395 

675 

375 

a 

537 

676 

380 

s 

4638 

677 

385 

= 

391 

678 

400 

= 

3919 

680 

402 

= 

2128 

681 

405 

= 

2306 

682 

410 

= 

1197 

685 

415 

= 

1313 

686 

420 

= 

1162 

607 

422 

= 

3290 

688 

425 

= 

2245 

689 

430 

= 

1429 

690 

4 35 

= 

868 

692 

440 

= 

593 

695 


2962 

696 

= 

4300 

1423 

697 

= 

2351 

2344 

698 

= 

266 

1325 

699 

= 

932 

1212 

700 

= 

4374 

2282 

701 

= 

2407 

1294 

702 

= 

2407 

084 

703 

= 

2127 

2286 

704 

= 

2408 

1293 

705 

= 

2125 

831 

706 

= 

2124 

3410 

707 

= 

1018 

481 

708 

= 

932 

1424 

750 

= 

477 

481 

752 

= 

947 

431 

754 

= 

5284 

143 

756 

= 

3807 

2558 

760 

c 

2259 

981 

800 

= 

1151 

477 

805 

= 

3152 

1038 

810 

= 

4559 

3251 

815 

= 

1883 

1724 

820 

= 

3962 

3150 

825 

= 

2729 

4854 

840 

= 

2697 

2064 

845 

= 

1602 

2451 

846 

= 

139 

3357 

900 

s= 

3412 

497 

910 

a 

2090 

932 

920 

= 

143 

4489 

950 

= 

1584 

1542 

970 

= 

143 

3430 

1000 

a 

5315 

932 

1010 

s 

143 

1696 

2000 

= 

2804 

4001 

2005 

= 

1608 

1548 

2010 

= 

1876 

1556 

2015 

= 

5740 

1767 

2020 

= 

3830 

1251 

2025 

= 

3499 

5960 

2030 

= 

3150 

4644 

2035 

= 

5189 

2960 

2040 

= 

1157 

2739 

2045 

= 

1250 

1125 

10000 

= 

1770 

932 

10002 

= 

1572 

4204 

10004 

= 

1340 

1513 

10006 


1567 

5220 

10008 

= 

1517 


Total= 

376804 
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Appendix A 
Using Joysticks 


To convert keyboard games to joystick games, you will need to 
replace USR calls to location 60000 (which reads the keyboard) 
with a BASIC sub-routine similar to the one below. [Use STICK(1) 
to read joystick 1 or STICK(2) for joystick 2; STICK(O) reads the 
keyboard.] 

A = STICK(I) 

IF (A = 0) THEN RETURN [to main program] 

IF (A = 1) OR (A = 2) OR (A = 8) THEN [move up] 

IF (A = 8) OR (A = 7) OR (A = 6) THEN [move left] 

IF (A = 6) OR (A = 5) OR (A = 4) THEN [move down] 

IF (A - 2) OR (A = 3) OR (A = 4) THEN [move right] 

These 'move’ statements could be USR calls to location 60118 
accompanied by appropriate pokes (see Appendix C, ‘Machine 
Code Support Program’). 

To alter firing, simply change any references to STRIG(O) to 
STRIG(I) for joysick 1, or STRIG(2) for joystick 2. 


JOYSTICK VALUES, STRIG(n) 


UP 



DOWN 
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This program makes the creation of sprites a very easy task. You 
create a sprite on a large grid by moving the cursor around and 
plotting points. When you are finished, the program supplies you 
with the numbers that you need to create the sprite in your own 


program. 

If these numbers are placed in DATA statements in your 
program, then the following statements will create a 16 x 16 
sprite: 

10 A$ =" FOR I = 1 TO 32: READ Q: A$ = A$ + CHR$(Q): 
NEXT I: SPRITE$(0) = A$ 

For an 8 x 8 sprite, change the ‘32’ to '8‘. Note that, in 8 x 8 mode, 
the sprite maker can be used for redefining characters. 

Instructions are included in the program and the box to the right 
of the grid shows you the sprite as you create it. 
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PROGRAMMING SUGGESTIONS 


The colour of the sprite can be set by adding the colour number to 
the end of the 'PUT SPRITE’ statement in lines 120 and 520. 

If you want to see your sprite in the enlarged mode, you could 
make the program give a choice between the modes and modify 
the boxes surrounding the sprites accordingly. 


PROGRAM 

Variables 


SA(I, J) 

Sprite Array (1 to 0) 

CP 

Cursor postion 

CU 

Character under cursor 

RW 

Row 

CO 

Column 


USTING 


Initialise 


10 KEY OFF : COLOR 1, 15, 15 : SCREEN 1, 2 : PRINT 
"aaaaaaaaaSPRITEaMAKER" 

15 FRINT : PRINT : PRINT : INPUT "ChooseA8x8A<'8’) 4 or aaaaa 
aaaaaaaaaaaa16x16a('16')"; X$ 

20 IF X* = "16" THEN 500 ELSE IF Xt = "8" THEN 100 ELSE 
PRINT "Pardon?”: GOTO 15 


Set-up Screen (8x8 sprite) 


100 

CLS : 

PRINT "AAAPressA ESC ’ AtoAfinish": 

FOR I = 


1 TO 5 

: PRINT 

: NEXT 


105 

PRINT 

"aa* +- 

- FOR I = 1 TO 8 : 

PRINT "AAA■AAAA 


A A A A • 

: NEXT : 

PRINT " aaa*- + * 


110 

PRINT 

: PRINT : 

PRINT "AAAUseACursorAkeysAtoAinDve": 


PRINT 

: PRINT " 

AAAPressA’P’AtoAplotApoint": PRINT : 


210 









PRINT "iiiPressi'E'itOAeraseApoint” ' 

115 CP = 6473 : CU = 32 : RW = 4 : CD = 4 

120 A* = SPRITE*! 0 ) = A* i PUT SPRITE 0, ( 167, 86 ) 

125 VPOKE 6484, 24 : VFOKE 6485, 23 s VPOKE 6486, 25 : 

VPOKE 6516, 22 : VPOKE 6518, 22 : VPOKE 6549, 23 s 

VPOKE 6548, 26 : VPOKE 6550, 27 





Control (8 x 8) 

200 

X* 

= INKEY* : VPOKE CP, 255 



250 

IF 

X* = ■" THEN 200 



255 

IF 

X* = CHR*( 27 ) 

THEN 400 



260 

IP 

X* = V OR X* 

= "P" THEN VPOKE CP, CU s 

GOTO 

300 

265 

IF 

X* = "E" OR X* 

= "e" THEN VPOKE CP, CU : 

GOTO 

310 

270 

IF 

X* = CHR*( 30 ) 

THEN 320 



275 

IF 

X* = CHR* ( 29 ) 

THEN 330 



280 

IF 

X* = CHR*( 31 ) 

THEN 340 



285 

IF 

X* = CHR* ( 28 ) 

THEN 350 



290 

GOTO 200 







Move/Plot/Erase 

300 

IF 

VPEEKI CP ) = 133 THEN 200 ELSE CU = 133 

i SA 



( RW, CO ) = 1 : GOTO 380 



310 

IF 

VPEEKI CP 1 = 3 

2 THEN 200 ELSE CU = 32 : 

SA I 



RW 

CO ) = 0 : GOTO 380 



320 

IF 

RW < 2 THEN 200 

ELSE RW = RW - 1 : VPOKE 

CP, 



CU 

: CU = VPEEKI CP - 32 ) : CP = CP - 32 : 

GOTO 

200 

330 

IF 

CO < 2 THEN 200 

ELSE CO = CO - 1 : VPOKE 

CP, 



CU 

: CU = VPEEKI CP - 1 > : CP = CP - 1 s GOTO 200 

340 

IF 

RW > 7 THEN 200 

ELSE RW = RW + 1 ! VPOKE 

CP, 



CU 

: CU = VPEEKI CP + 32 ) ! CP = CP + 32 : 

GOTO 

200 

350 

IF 

CO > 7 THEN 200 

ELSE CO = CO 4 1 : VPOKE 

CP, 



CU 

: CU = VPEEKI CP + 1 ) : CP = CP + 1 : GOTO 200 




Print Sprite (8 x 8) 

380 

K2 

= 14335 + RW : 

< = VPEEKI K2 ) s K1 = 2 * 

I 8 



- CO ) : IF SA ( RW, CO ) = 1 THEN K = K + K1 : 



VPOKE K2, K : GOTO 

200 



385 

K = 

K - K1 : VPOKE 

K2, K : GOTO 200 
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Finish (8 x 8) 


400 CLS : PRINT "Numbers 4 Ior a'DATA' 4 statements " : PRINT s 
PRINT ! PRINT 

410 FOR I = 14336 TO 14342 : PRINT USING "»#»"; VPEEK( I) 
j : PRINT "a"; : NEXT 

415 PRINT : PRINT : PRINT s PRINT USING "*#*"; VPEEK t 
14343 ) 

420 FOR I = 1 TO 4 : PRINT : NEXT : PRINT "aHi tAanyAkeyatoA 
startAagain" : PUT SPRITE 0, ( 127, 150 ) 

430 IF INKEYT = THEN 430 ELSE RUN 


Set-up Screen (16 x 16) 


500 CLS : PRINT "PressA ' ESC ' AtOAfinish": PRINT 

505 PRINT " +--FOR I = 1 TO 16 : PRINT 

"*A*AAAitAAit****A*": NEXT : PRINT " +- * 

510 PRINT : PRINT "UseACursorAkeysAtounove 11 1 PRINT "PressA 
P ’ ato aP 1otApoint": PRINT "PressA’E'AtOAeraseApoint"; 


515 

DIM SA 
CO = 8 

( 16 

16 ) 

: CP 

= 6474 ! 

CU = 32 

: RN - 8 

520 

A* = " 

SPRITE* ( 

0 ) 

= AT : 

PUT 

SPRITE 

0, ( 
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525 

VPOKE 

6490, 

24 : 

VPOKE 

6491 , 

23 

: VPOKE 

6492 

23 


VPOKE 

6493 , 

25 : 

VPOKE 

6522, 

27 

: VPOKE 

6525 

22 


VPOKE 

6554, 

22 : 

VPOKE 

6557, 

27 

: VPOKE 

6587 

23 


VPOKE 

6588, 

23 : 

VPOKE 

6586, 

76 

: VPOKE 

6589 

27 


Control (16 x 16) 


600 

XT 

* 

INKEY* : VPOKE CP, 

755 






650 

IF 

X T 

= 

THEN 600 







655 

IF 

X T 

= 

CHR$( 27 ) THEN 

800 






660 

IF 

XT 

= 

"p" OR XT = "P" 

THEN 

VPOKE 

CP, 

1 CU : 

GOTO 

700 

665 

IF 

XT 

= 

"E" OR XT = "e" 

THEN 

VPOKE 

CP, 

CU : 

: GOTO 

710 

670 

IF 

XT 

= 

CHRTt 30 I THEN 

720 






675 

IF 

XT 

= 

CHRTt 79 ) THEN 

730 






680 

IF 

XT 

= 

CHRT( 31 ) THEN 

740 






685 

IF 

XT 

= 

CHR*( 28 ) THEN 

750 







690 GOTO 600 


Move/Plot Erase (16 x 16) 


700 IF VPEEK( CP ) = 133 THEN 600 ELSE CU = 133 : SA 
( RW, CO ) = 1 : GOTO 780 
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710 IF VPEEK ( CF ) = 32 THEN 600 ELSE CU = 32 : SA ( 

RW, CO ) = 0 : GOTO 780 

720 IF RW < 2 THEN 600 ELSE RW = RW - 1 s VPOKE CP, 

CU : CU = VFEEK( CP - 32 ) : CP = CP - 32 : GOTO 600 

730 IF CO < 2 THEN 600 ELSE CO = CO - 1 : VPOKE CP, 

CU : CU = VPEEK( CP - 1 ) : CP = CP - 1 t GOTO 600 

740 IF RW > 15 THEN 600 ELSE RW = RW + 1 : VPOKE CP, 

CU : CU = VPEEK( CP + 32 ) : CP = CP + 32 : GOTO 600 

750 IF CO > 15 THEN 600 ELSE CO = CO + 1 : VPOKE CP, 

CU : CU = VPEEK( CP + 1 > : CP = CP + 1 : GOTO 600 




Print Sprite (16x16) 


780 

IF CO < ? THEN K1 

= 0 ELSE K1 = 16 


785 

K2 = 14335 + RW + 

K1 : K = VPEEK( K2 

! IF CO < 


9 THEN K1 = 2 A ( 8 

- CO ) ELSE K1 = 2 

A < 16 - CO ) 

790 

IF SA ( RW, CO ) = 
K : GOTO 600 

1 THEN K = K + K1 

VPOKE K2, 

795 

K = K - K1 : VPOKE 

K2, K i GOTO 600 



Finish (16 x 16) 


800 CLS : PRINT "Numbersafor a'DATA'astatements": PRINT 
"aReadafromaleftatoaright": PRINT 
810 FOR I = 14335 TO 14356 STEP 7 : PRINT : PRINT : 

FOR J = I TO 7 : PRINT USING "Mi”; VPEEK( I + J > 

; : PRINT ’V; : NEXT : NEXT 

815 PRINT : FRINT : FOR I = 14364 TO 14367 : PRINT USING 

"###"; VPEEK( I ) ; : PRINT "a"; : NEXT 

820 FOR I = 1 TO 3 : PRINT : NEXT : PRINT "aHitaany»keyatoa 
startaagain" : PUT SPRITE 0, ( 120, 165 ) 

830 IF INKEYt = " "j THEN 830 ELSE RUN 
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ChexSum Table 


10 

r 

3219 

320 

= 6213 

665 

= 

3076 

15 

= 

4148 

330 

= 6174 

670 

= 

1516 

20 

= 

4379 

340 

= 6210 

675 

= 

1516 

100 

= 

4028 

350 

= 6171 

680 

= 

1532 

105 

a 

4018 

380 

= 7500 

685 

= 

1532 

110 

= 

10384 

385 

= 2007 

690 

= 

483, 

115 

s 

2034 

400 

= 4116 

700 

= 

4051 

120 

= 

2258 

410 

= 2988 

710 

= 

3750 

125 

= 

5134 

415 

= 1934 

720 

a 

5975 

200 

= 

1337 

420 

= 5353 

730 

= 

5936 

250 

a 

1032 

430 

= 1484 

740 

= 

6031 

255 

= 

1449 

500 

= 2698 

750 

a 

6008 

260 

a 

2947 

505 

= 6460 

780 

a 

1845 

265 

a 

2916 

510 

= 8747 

785 

= 

6451 

270 

a 

1373 

515 

= 2718 

790 

a 

3234 

275 

r 

1373 

520 

= 2297 

795 

a 

1879 

2B0 

a 

1389 

525 

= 9318 

800 

a 

6481 

285 

s 

1389 

600 

= 1337 

810 

= 

5442 

270 

a 

593 

650 

= 920 

815 

= 

3392 

300 

a 

4243 

655 

= 1292 

B20 

= 

5345 

310 

a 

3938 

660 

= 3075 

830 

= 

1374 


Tot al = 229442 
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Appendix C 
Machine-Code Support 
Program 

SUPPORT PROGRAM 


This program is required for a number of the games in this book. It 
must be loaded and RUN before you load your game program. 

1 Type this program in and save it. Use ChexSum to check it 
and, when bug-free, save it as “SUPPRT”. 

1 2 Load Support and RUN it. 

3 Load your debugged game program and RUN it; it will call 
and use support as required. 

Support Listing 


10 CIS : PRINT "MACHINE*CODE*SUPPORTaPROGRAM” 

20 FGR I = 60000! TO 60217! : READ Q : POKE I, Q i NEXT 


1000 

DATA 

219, 

, 170 

, 230 

, 240 

, 33, 

92, 

234, 

94, 246, 8, 


0, 0 

, 0, 

0, 0 

, 0, 

0, 0, 

0, 0 

. «, 

211, 

170, 

219, 


169, 

71, 

0, 0 

, «, 

0, 0, 

0, 0 

, « 




1010 

DATA 

0, 1 

5, 0, 

230, 

128, 

194, 

151 

, 234 

, 203, 

91, 


202, 

151 

, 234 

, 62, 

3, 50, 94 

, 234, 195, 209 

, 234, 


120, 

230 

, 64, 

194, 

170, 

234, 

203 

, 83, 

202, 

170, 


234, 

62, 

2 








1020 

DATA 

50, 

94, 

234, 

195, 

209, 

234, 

120, 

230, 

32, 194 


189 , 

234 

, 203 

, 67, 

202, 

189, 

234 

, 62, 

0, 50 

, 94, 


234 , 

195 

, 209 

, 234 

, 120 

, 230 

, 16 

, 194 

, 208, 

234, 


203, 

75, 

202, 

208, 

234, 

62, 

1, 50, 94 

, 234, 

195, 


209, 

234 

, 201 

, 62, 

0, 50, 93 

,' 234, 58 



1030 

DATA 

93, 

234 , 

203, 

39, 

203, 

39, 

79, 6 

t 33, flj 


27, 

9, 58, 95 

, 234 

, 71, 

58, 

94, 

234, 

87, 254, 0, 


194, 

250 

, 234 

, 205 

, 27, 

235, 

171 

, 152 

, 79, 

195, 


44, 

235, 

25 4 








1040 

DATA 

1, 

194, 

6, 235, 35 

, 205 

, 27 

, 235 

, 195, 

244, 


234, 

254 

, 2, 

194, 

20, 235, 205, 

27, 235, 121, 128, 


7?, 

19 5, 

44, 

235, 

35, 205, 27, 235, 195, 14 

, 235, 


125, 

243 

, 21! 
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1050 

DATA 

153, 

124, 

211, 

153, 

0, 0, 

, 0, 0, 219, 152, 79 


183, 

251 , 

201, 

125, 

243, 

211, 

153, 124, 246, 64, 


711, 

153, 

121, 

211, 

152, 

251, 

201 


Support ChexSum Table 

10 = 2712 

20 = 2233 

1000 = 7068 

1010 = 10317 

1020 = 21367 

1030 = 10298 

1040 = 11087 

1050 = 8282 

Total= 73364 
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DEMONSTRATION PROGRAM 



This program gives an explanation and demonstration of the 
machine-code support program used to move sprites in many of 
the games in this book. It is divided into two parts, Part 1 involving 
the reading of the keyboard, and Part 2 the moving of sprites. 
All instructions are included in the program. 

Demonstration Program Suggestions 

Part 2 only allows the user to choose directions for moving the 
sprite. The ‘1' in line 90 can be altered to give different speeds or 
you can restructure the program to give the user the choice of 
speeds when the program runs. 


Demonstration Variables 

X$ Key Pressed 

K Temporary 
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Demonstration Listing 




Initialise 

5 

REM RUN MACHINE CODE 


6 

REM SUPPORT PROGRAM 



7 

REM SEE APPENDICES 



10 

COLOR 15, 4, 7 ! SCREEN 1, 1 : KEY OFF 


15 

FOR I = 1 TO 8 : READ Q : A* = A* + CHR*< Q ) 

: 


NEXT : SPRITE*! 0 ) 

= A* s GOTO 200 




Part 1: Read Keyboards 


20 CLS .• PRINT "aaDFMONSTRATIONaOFaMACHINE": PRINT 

"aaaaCODEaSUPPORTaPROGRAM": PRINT : PRINT " aaaaaaaaaaaP 
ARTaJ"i PRINT 

25 DEFUSR0 = 66000! : PRINT n aaTheaTirstAroutineastartsaat 
1ocationa60000 .a Itsapurpose" i PRINT *is 4 tOaread a theakey 
baardAandA": PRINT ”noveaspritea0aiPatheaarrow"t 
PRINT "keysaareapressed. " 

30 PRINT "AATheA^Aal 1 owedadirections" i PRINT "areanumbered 
aasaTol1ows:": PRINT 

35 PRINT ”aaaaaaaaaaaaa0"i PRINT ! PRINT " aaaaaaaaaaaaaU" i 
PRINT "aaaaaaaaaaaaaV"! PRINT " aaaaaaaaaI aUWHUaJ" i 
PRINT "aaaaaaaaaaaaaV"! PRINT "aaaaaaaaaa*aaU" : 

PRINT : PRINT "aaaaaaaaaaaaa2"! PRINT i PRINT *AAHitAan 
yakeyatoacontinue"; 

40 IF INKEY* = "" THEN 40 

45 CLS : PRINT ”a aDistanceatOAmoveatheaspriteisapokedainto 
a 1oc. a 59999aand"! PRINT "theaal1owedadirectionsainto"i 
FRINT "1 oca tiona59996 .aPok ing a thca "i PRINT "numbersaO-l 
5AintOA59996agives"; 

50 PRINT "al 1 acombinati onsaof aal Iowed" i PRINT "directions. 
AToAseeAthiSAenterdifferentanunbers^andApress’! 

PRINT "theaarrowakeys."i PRINT "aaPressa'a’aforaanother 
ago.": PRINT "aaPressa'ESC’atoatinish.": PRINT 

55 INPUT "distance"! D : PRINT : INPUT "directions"jX* 

60 PRINT i PRINT : PUT SPRITE 0, ( 120, 175 ) , 1 

65 POKE 59999!, D i POKE 59996!, VALt X* ) s I = USR0I 
I ) : At = INKEY* : IF A* = "a" OR A* = "A" THEN 
55 ELSE IF A* = CHR*( 27 ) THEN PUT SPRITE 0, ( 

100, 200 ) : GOTO 200 ELSE 65 
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Part 2: Move Sprites 


75 CLS : PRINT "**********PART*2"r PRINT : PRINT "**This*r 
outjne*starts*at*loc.: PRINT "6fllI8*and*moves*a*spri 
te.”: PRINT ”The*sprite*number*must*be****poked*int0*59 

997,*direction**into*59998*and*distance*into*59999." 

80 PRINT "**Hit*' RETURN ' *to*change*****directi on."s 
PRINT 11 **Hi t * 'ESC ' *to*f i ni sh. ": PRINT 
85 DEFUSR 1 = 611118' : POKE 59997!, 0 : PUT SPRITE 0 
( 10, 175 I , 1 

90 POKE 59998!, 1 : POKE 59999!, I 

95 I = USR1 ( I 1 : X* = INKEY* : IF X* = THEN 95 
ELSE IF X* = CHR*( 27 ) THEN PUT-SPRITE 0, ( J00, 

200 ) : GOTO 200 ELSE IF X* <> CHR*< 13 ) THEN 95 

96 INPUT "Which*directi on*(0-3)"; X* : K = VAL( X* ) 

: IF K < 0 OR K > 3 THEN PRINT "Pardon?"! GOTO 96 

ELSE POKE 59998!, K : CLS : PRINT ■**Hit*'RETURN■*to*ch 
ange*****direction. PRINT "**Hit*’ESC'*to*finish. 

GOTO 95 


Menu 


200 CLS : PRINT ”*MACHINE*C0DE*DEM0NSTRAT10N" 

205 FOR I = 1 TO 4 ; PRINT : NEXT ! PRINT TAB( 18 ) 

"Pre55*Key": PRINT : PRINT : PRINT "****DEMO*PART*I*** 
***'!■“: PRINT : PRINT : PRINT ■»***DEM0*PART*2******* 1 
2"! PRINT : PRINT : PRINT "****FIN1SH************ ' F ' " 
210 FOR I = 1 TO 4 : PRINT ! NEXT : PRINT "*Press*one*of*th 
e*above*keys": PRINT "**to*make*your*selection" 

220 X* = INKEY* : IF X* = "1" THEN 20 ELSE IF X* = "2" 

THEN 75 ELSE IF X* = "F" OR X* = "f* THEN SCREEN 
1 : PRINT "****GOOD-BYE!END ELSE 220 
1000 DATA 24, 60, J02, 255, 255, 24, 36, 66 


Demonstration ChexSum Table 


3 

= 

0 

40 

6 

= 

0 

45 

7 

= 

0 

50 

10 

= 

1235 

55 

15 

= 

4280 

60 

20 

= 

8057 

65 

25 

= 

19414 

75 

30 

= 

5884 

80 

35 

= 

20681 

85 


= 

979 

90 

= 

1523 

= 

20547 

95 

= 

8437 

= 

23681 

96 

= 

192B8 

= 

3192 

200 

= 

2619 

= 

1400 

205 

= 

13114 

= 

10795 

210 

= 

7199 

= 

24879 

220 

= 

8044 

= 

6587 

1000 

= 

1583 

= 

2879 

Total= 

216297 
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Appendix D 
Machine-Code Scrolling 
Routine 



There are several machine-code scrolling routines used in this 
book, but all are very similar to the one used in this demonstration. 
All intructions are included in the program. 


PROGRAM 

Listing of BASIC Loader 


5 REM RUN MACHINE CODE 

6 REM SUPPORT PROGRAM 

7 REM SEE APPENDICES 

10 SCREEN 1 : COLOR 15, 4, 7 : KEY OFF : FOR I = 60350! 

TO 60401! : READ Q : POKE I, Q : NEXT 
15 DEFUSR ='60350! : POKE 60346!, 0 : POKE 60347!, 

24 : POKE 60348!, 255 : POKE 6034?!, 26 
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20 PRINT "aaaDEMONSTRATIONaOFaMACHINE": FRINT "aaaaCODEaSC 
ROLL INGaROUTINE * 

25 FOR 1 = 1 TO 10 : PRINT : NEXT : PRINT "»»**Press*any*k 
ey*t0AStart“: PRINT : PRINT " aaa*P ress a ' ESC 1 *to 4 fi n ish" 
30 IF INKEY* = "" THEN 30 

40 CLS : PRINT "AaTheASCrol1inqAroutineA***i*ademonstrated 

AhereAiSAtypicalAofAtheAroutineSAUsedAinAtheAAbook.A" 

45 PRINT : PRINT "AApressA'RETURN’AwhenAyouAarB 4 ready." 

50 IF INKEY* = CHR*( 13 ) THEN 55 ELSE 50 

55 D = USR( D ) : X* = INKEY* : IF X* = CHR*( 27 ) 

THEN SCREEN 1 : PRINT "GOOD-BYE!”: END 
60 GOTO 55 

10000 DATA 6 , 31, 42, 186, 235, 43, 35, 205, 27, 235, 

120, 254, 31, 202, 215, 235, 4, 43, 205, 44, 235, 

35, 19 5, 227, 235, 6 , 0, 17, 31, 0, 25, 205, 44, 

235, 183, 237, 82, 237, 91, 188, 235, 123, 189, 

194, 196, 235, 122, 188, 194, 196, 235, 201 


ChexSum Table 

5 =0 

6 =0 

7 =0 

10 = 3647 

15 = 4235 

20 = 5324 

25 = 6972 

30 = 969 









X 


The best new software games book for your MSX! 

These easy-to-enter program listings turn your MSX 
computer into an arcade of electronic fun and thrills. 
There are games that test your reflexes, your nerve, 
your logic, your strategy and your intelligence — 
educational games, simulation games, adventure 
games and much more! 

These games programs make maximum use of the 
sophisticated MSX features, including its sprite 
capabilities and excellent sound function. 

Use the unique ChexSum verification program to 
ensure that your games are bug free. Screen shots 
preview each program. Program structures are 
outlined, and key variables are given so that you can 
modify and extend these games for even more thrill- 
packed action! 



This book will open the doorjfor all MSX owners to a 
fascinating new dimension djf computer game action 
and excitement. 
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